mod_oasis_namcouple.F90 File Reference

Go to the source code of this file.

Modules
module	mod_oasis_namcouple
	Reads the namcouple file for use in OASIS.

Functions/Subroutines
subroutine, public	mod_oasis_namcouple::oasis_namcouple_init ()
	Reads the namcouple. More...
subroutine	mod_oasis_namcouple::inipar_alloc ()
	Reads the namcouple to allocate arrays. More...
subroutine	mod_oasis_namcouple::inipar
	Reads, sets, and prints the namcouple file. More...
subroutine	mod_oasis_namcouple::alloc ()
	Allocates temporary arrays for namcouple input. More...
subroutine	mod_oasis_namcouple::dealloc ()
	Deallocates temporary arrays for namcouple input. More...
subroutine	mod_oasis_namcouple::prtout (cdtext, kvalue, kstyle)
	Prints information passed by argument. More...
subroutine	mod_oasis_namcouple::findkeyword (keyword, line, found)
	Searches for a particular keyword in the namcouple file. More...
logical function	mod_oasis_namcouple::checkcomment (line)
subroutine	mod_oasis_namcouple::parse (cdone, cdtwo, knumb, klen, kleng, line)
	Subroutine to parse string. More...
subroutine	mod_oasis_namcouple::skip (cd_one, id_len, endflag, ios)
subroutine	mod_oasis_namcouple::namcouple_abort (isubname, lineno, string1, string2, string3, string4)
	Subroutine that calls abort in this module. More...

Variables
integer(kind=ip_intwp_p), parameter	mod_oasis_namcouple::jpeighty = 5000
	max number of characters to be read in each line of the file namcouple More...
character(len= *), parameter	mod_oasis_namcouple::rform = '(A5000)'
	formatted line read format More...
character(len= *), parameter	mod_oasis_namcouple::nmapdec_default = 'decomp_1d'
character(len= *), parameter	mod_oasis_namcouple::nmatxrd_default = 'ceg'
character(len= *), parameter	mod_oasis_namcouple::nwgtopt_default = 'abort_on_bad_index'
integer(kind=ip_i4_p), public	mod_oasis_namcouple::nnamcpl
	number of namcouple inputs More...
integer(kind=ip_i4_p), public	mod_oasis_namcouple::namruntim
	namcouple runtime More...
integer(kind=ip_i4_p), public	mod_oasis_namcouple::namlogprt
	namcouple nlogprt value More...
integer(kind=ip_i4_p), public	mod_oasis_namcouple::namtlogprt
	namcouple ntlogprt value More...
integer(kind=ip_i4_p), public	mod_oasis_namcouple::namuntmin
	namcouple min IO unit value More...
integer(kind=ip_i4_p), public	mod_oasis_namcouple::namuntmax
	namcouple max IO unit value More...
logical, public	mod_oasis_namcouple::namnorest
	namcouple allow no restarts More...
character(len=ic_med), public	mod_oasis_namcouple::nammapdec
	namcouple map decomp value More...
character(len=ic_med), public	mod_oasis_namcouple::nammatxrd
	namcouple matrix read option More...
character(len=ic_med), public	mod_oasis_namcouple::namwgtopt
	namcouple weights handling option More...
character(len=jpeighty), dimension(:), pointer, public	mod_oasis_namcouple::namsrcfld
	list of src fields More...
character(len=jpeighty), dimension(:), pointer, public	mod_oasis_namcouple::namdstfld
	list of dst fields More...
character(len=ic_lvar), dimension(:), pointer, public	mod_oasis_namcouple::namsrcgrd
	src grid name More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namsrc_nx
	src nx grid size More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namsrc_ny
	src ny grid size More...
character(len=ic_lvar), dimension(:), pointer, public	mod_oasis_namcouple::namdstgrd
	dst grid name More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namdst_nx
	dst nx grid size More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namdst_ny
	dst ny grid size More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldseq
	SEQ value. More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldops
	operation, ip_expout,... More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namflddti
	coupling period (secs) More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldlag
	coupling lag (secs) More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldtrn
	fields transform, ip_instant,... More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldcon
	conserv fld operation More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namfldcoo
	conserv fld option (bfb, opt) More...
character(len=ic_long), dimension(:), pointer, public	mod_oasis_namcouple::nammapfil
	mapping file name More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::nammaploc
	mapping location (src or dst pes) More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::nammapopt
	mapping option (bfb, sum, or opt) More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namrstfil
	restart file name More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::naminpfil
	input file name More...
logical, dimension(:), pointer, public	mod_oasis_namcouple::namchecki
	checkin flag More...
logical, dimension(:), pointer, public	mod_oasis_namcouple::namchecko
	checkout flag More...
real(kind=ip_realwp_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldsmu
	src multiplier term More...
real(kind=ip_realwp_p), dimension(:), pointer, public	mod_oasis_namcouple::namfldsad
	src additive term More...
real(kind=ip_realwp_p), dimension(:), pointer, public	mod_oasis_namcouple::namflddmu
	dst multipler term More...
real(kind=ip_realwp_p), dimension(:), pointer, public	mod_oasis_namcouple::namflddad
	dst additive term More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namscrmet
	scrip method (CONSERV, DISTWGT, BILINEAR, BICUBIC, GAUSWGT) More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namscrnor
	scrip conserv normalization (FRACAREA, DESTAREA, FRACNNEI) More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namscrtyp
	scrip mapping type (SCALAR, VECTOR) More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namscrord
	scrip conserve order (FIRST, SECOND) More...
character(len=ic_med), dimension(:), pointer, public	mod_oasis_namcouple::namscrres
	scrip search restriction (LATLON, LATITUDE) More...
real(kind=ip_realwp_p), dimension(:), pointer, public	mod_oasis_namcouple::namscrvam
	scrip gauss weight distance weighting for GAUSWGT More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namscrnbr
	scrip number of neighbors for GAUSWGT and DISTWGT More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namscrbin
	script number of search bins More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namsort2nn
	sorted namcpl for sort, define nn order, computed later More...
integer(kind=ip_i4_p), dimension(:), pointer, public	mod_oasis_namcouple::namnn2sort
	sorted namcpl for nn, define sort number, computed later More...
integer(kind=ip_i4_p)	mod_oasis_namcouple::nulin
character(len= *), parameter	mod_oasis_namcouple::cl_namcouple = 'namcouple'
integer(kind=ip_intwp_p)	mod_oasis_namcouple::il_err
logical	mod_oasis_namcouple::lncdfgrd
logical	mod_oasis_namcouple::lncdfrst
character(len=5), parameter	mod_oasis_namcouple::cgrdnam = 'grids'
character(len=5), parameter	mod_oasis_namcouple::cmsknam = 'masks'
character(len=5), parameter	mod_oasis_namcouple::csurnam = 'areas'
character(len=5), parameter	mod_oasis_namcouple::crednam = 'maskr'
character(len=4), parameter	mod_oasis_namcouple::cglonsuf = '.lon'
character(len=4), parameter	mod_oasis_namcouple::cglatsuf = '.lat'
character(len=4), parameter	mod_oasis_namcouple::crnlonsuf = '.clo'
character(len=4), parameter	mod_oasis_namcouple::crnlatsuf = '.cla'
character(len=4), parameter	mod_oasis_namcouple::cmsksuf = '.msk'
character(len=4), parameter	mod_oasis_namcouple::csursuf = '.srf'
character(len=4), parameter	mod_oasis_namcouple::cangsuf = '.ang'
logical, dimension(:), allocatable	mod_oasis_namcouple::lmapp
logical, dimension(:), allocatable	mod_oasis_namcouple::lsubg
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nfcoast
logical	mod_oasis_namcouple::lcoast
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ntime
integer(kind=ip_intwp_p)	mod_oasis_namcouple::niter
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nitfn
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nstep
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_nfield
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_direct_nfield
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_total_nfield
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_final_nfield
logical	mod_oasis_namcouple::lg_oasis_field
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_maxcomb
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_maxnoa
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_maxnfg
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nlogprt
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ntlogprt
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nuntmin
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nuntmax
logical	mod_oasis_namcouple::nnorest
character(len=ic_med)	mod_oasis_namcouple::nmapdec
character(len=ic_med)	mod_oasis_namcouple::nmatxrd
character(len=ic_med)	mod_oasis_namcouple::nwgtopt
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::numlab
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_numlab
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nfexch
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_ntrans
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_total_ntrans
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlonbf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlatbf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlonaf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlataf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nseqn
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_total_nseqn
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_freq
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_lag
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlagn
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_invert
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_reverse
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_number_field
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_no_rstfile
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_total_state
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_local_trans
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_grid_nbrbf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ig_grid_nbraf
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_nbr_rstfile
integer(kind=ip_intwp_p)	mod_oasis_namcouple::ig_total_frqmin
logical, dimension(:), allocatable	mod_oasis_namcouple::lg_state
character(len=jpeighty), dimension(:), allocatable	mod_oasis_namcouple::cnaminp
character(len=jpeighty), dimension(:), allocatable	mod_oasis_namcouple::cnamout
character(len=8), dimension(:,:), allocatable	mod_oasis_namcouple::canal
character(len=8)	mod_oasis_namcouple::cg_c
character(len=32), dimension(:), allocatable	mod_oasis_namcouple::cg_name_rstfile
character(len=32), dimension(:), allocatable	mod_oasis_namcouple::cg_restart_file
character(len=32), dimension(:), allocatable	mod_oasis_namcouple::cficinp
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cficout
character(len=32), dimension(:), allocatable	mod_oasis_namcouple::cg_input_file
character(len=jpeighty), dimension(:), allocatable	mod_oasis_namcouple::cg_input_field
character(len=jpeighty), dimension(:), allocatable	mod_oasis_namcouple::cg_output_field
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cficbf
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cficaf
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cstate
character(len=4), dimension(:), allocatable	mod_oasis_namcouple::cga_locatorbf
character(len=4), dimension(:), allocatable	mod_oasis_namcouple::cga_locatoraf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::neighbor
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ntronca
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::ncofld
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::neighborg
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nbofld
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nbnfld
integer(kind=ip_intwp_p), dimension(:,:), allocatable	mod_oasis_namcouple::nludat
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlufil
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlumap
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nmapfl
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nmapvoi
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nlusub
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nsubfl
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nsubvoi
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nluext
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nextfl
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nosper
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::notper
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nbins
integer(kind=ip_intwp_p)	mod_oasis_namcouple::nlucor
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nscripvoi
real(kind=ip_realwp_p), dimension(:), allocatable	mod_oasis_namcouple::amskval
real(kind=ip_realwp_p), dimension(:), allocatable	mod_oasis_namcouple::amskvalnew
real(kind=ip_realwp_p), dimension(:,:), allocatable	mod_oasis_namcouple::acocoef
real(kind=ip_realwp_p), dimension(:,:), allocatable	mod_oasis_namcouple::abocoef
real(kind=ip_realwp_p), dimension(:,:), allocatable	mod_oasis_namcouple::abncoef
real(kind=ip_realwp_p), dimension(:), allocatable	mod_oasis_namcouple::afldcoef
real(kind=ip_realwp_p), dimension(:), allocatable	mod_oasis_namcouple::afldcobo
real(kind=ip_realwp_p), dimension(:), allocatable	mod_oasis_namcouple::afldcobn
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cxordbf
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cyordbf
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cxordaf
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cyordaf
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cextmet
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cintmet
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cgrdtyp
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cfldtyp
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cfilfic
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cfilmet
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cconmet
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cconopt
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cfldcoa
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cfldfin
character(len=8), dimension(:,:), allocatable	mod_oasis_namcouple::ccofld
character(len=8), dimension(:,:), allocatable	mod_oasis_namcouple::cbofld
character(len=8), dimension(:,:), allocatable	mod_oasis_namcouple::cbnfld
character(len=8), dimension(:,:), allocatable	mod_oasis_namcouple::ccofic
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cdqdt
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cgrdmap
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cmskrd
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cgrdsub
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::ctypsub
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cgrdext
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::csper
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::ctper
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cmap_method
character(len=ic_long), dimension(:), allocatable	mod_oasis_namcouple::cmap_file
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cmaptyp
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cmapopt
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::corder
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cnorm_opt
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::cfldtype
character(len=8), dimension(:), allocatable	mod_oasis_namcouple::crsttype
character(len=8)	mod_oasis_namcouple::cfldcor
logical, dimension(:), allocatable	mod_oasis_namcouple::lsurf
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::naismfl
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::naisgfl
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::naismvoi
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::naisgvoi
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::niwtm
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::niwtg
real(kind=ip_realwp_p), dimension(:), allocatable	mod_oasis_namcouple::varmul
logical, dimension(:), allocatable	mod_oasis_namcouple::linit
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::niwtn
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nninnfl
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::niwtng
integer(kind=ip_intwp_p), dimension(:), allocatable	mod_oasis_namcouple::nninnflg
logical, dimension(:), allocatable	mod_oasis_namcouple::lextra
logical, dimension(:), allocatable	mod_oasis_namcouple::lweight
character *9, parameter	mod_oasis_namcouple::clfield = '$NFIELDS '
character *9, parameter	mod_oasis_namcouple::clchan = '$CHANNEL '
character *9, parameter	mod_oasis_namcouple::clstring = '$STRINGS '
character *9, parameter	mod_oasis_namcouple::clmod = '$NBMODEL '
character *9, parameter	mod_oasis_namcouple::cljob = '$JOBNAME '
character *9, parameter	mod_oasis_namcouple::cltime = '$RUNTIME '
character *9, parameter	mod_oasis_namcouple::clseq = '$SEQMODE '
character *9, parameter	mod_oasis_namcouple::cldate = '$INIDATE '
character *9, parameter	mod_oasis_namcouple::clhead = '$MODINFO '
character *9, parameter	mod_oasis_namcouple::clprint = '$NLOGPRT '
character *9, parameter	mod_oasis_namcouple::clmapdec = '$NMAPDEC '
character *9, parameter	mod_oasis_namcouple::clmatxrd = '$NMATXRD '
character *9, parameter	mod_oasis_namcouple::clwgtopt = '$NWGTOPT '
character *9, parameter	mod_oasis_namcouple::clunit = '$NUNITNO '
character *9, parameter	mod_oasis_namcouple::clrest = '$NNOREST '
character *9, parameter	mod_oasis_namcouple::clcal = '$CALTYPE '
character *9, parameter	mod_oasis_namcouple::clend = '$END '
integer(kind=ip_intwp_p), parameter	mod_oasis_namcouple::nkeywords = 17
character *9, dimension(nkeywords), parameter	mod_oasis_namcouple::keyword_list = (/clfield, clchan, clstring, clmod, cljob, cltime, clseq, cldate, clhead, clprint, clmapdec, clmatxrd, clunit, clrest, clcal, clend, clwgtopt /)
character *512	mod_oasis_namcouple::tmpstr1
character *512	mod_oasis_namcouple::tmpstr2
character *512	mod_oasis_namcouple::tmpstr3
character *512	mod_oasis_namcouple::tmpstr4