[MITgcm-cvs] MITgcm/pkg/ecco CVS Commit
Gael Forget
gforget at baudelaire.csail.mit.edu
Mon Oct 1 21:40:03 EDT 2012
Update of /u/gcmpack/MITgcm/pkg/ecco
In directory baudelaire:/srv/scratch/gforget/MITgcm/pkg/ecco
Modified Files:
cost_gencost_all.F cost_gencost_assignperiod.F
cost_gencost_sshv4.F cost_gencost_sstv4.F ecco_check.F
ecco_cost.h ecco_cost_init_fixed.F ecco_cost_summary.F
ecco_readparms.F
Log Message:
- introduce gencost_flag(k) that is currently one of 3 values :
0 if cost term k is not used
1 if cost term is fully interactive (i.e. uses gencost_datafile)
-1 if ocst term is pre-specified (i.e. uses gencost_name)
- introduce using_gencost(k) logical in line with using_topex etc.
- ecco_readparms.F : assign using_gencost(k) & gencost_flag(k) based
on gencost_datafile(k).NE.' ' (fully interactive cost terms)
or on gencost_name(k) (for pre-specified generic cost terms)
- throughout : replace "if ( gencost_datafile(num_var) .ne. ' ' )"
with "if ( using_gencost(num_var) ) then"
- throughout : rm ALLOW_GENCOST_FREEFORM CPP option. The same
thing is now achieved dynamically based on gencost_flag.
- ecco_check.F : add gencost checks, account for "data"startdate
in ecco_check_files, add topexmean check.
More information about the MITgcm-cvs
mailing list