/[MITgcm]/MITgcm/pkg/ecco/ecco_init_varia.F
ViewVC logotype

Contents of /MITgcm/pkg/ecco/ecco_init_varia.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (show annotations) (download)
Mon Sep 29 16:47:50 2014 UTC (9 years, 7 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65f, checkpoint65g, HEAD
Changes since 1.1: +5 -1 lines 
- remove includes from pkg/ctrl, add missing CCP switches,
  remove unused variable, replace optimiter with eccoiter :
  cost_averagesgeneric.F, cost_gencost*.F,
  cost_generic.F, ecco_check.F, ecco_phys.F
- include ecco.h rather than ecco.h : ecco_cost_driver.F,
  ecco_phys.F, cost_averagesgeneric.F, cost_gencost*.F,
- rename xx_genbar_dummy as gencost_dummy : cost_averagesfields.F,
  cost_averagesinit.F, cost_gencost_*.F, ecco_cost_init_barfiles.F


- cost_bp.F : modify calls to cost_bp_read (added arguments)
- cost_bp_read.F added arguments (localobsfile, localstartdate,
     localobs, localmask) replacing use of common blocs
- cost_generic.F : add ALLOW_OLD_ESTIM_CODES bracket
- ecco_check.F :
    use gencost_startdate rather than modelstartdate, rename
    using_topex as using_tpj, add ALLOW_OLD_ESTIM_CODES brackets
- cost_gencost_all.F : remove un-necessary CPP brackets of
    cost_gencost_*v4 calls, add cost_gencost_bpv4 call,
    use gencost_startdate rather than modelstartdate
- cost_averagesgeneric.F : added DEBUG code
- ecco_cost_final.F : added ifdef ALLOW_ECCO
- ecco_cost_init_fixed.F : copy optimcycle to eccoiter
  when ALLOW_CTRL, set eccoiter to 0 otherwise;
  revise gencost conditionality
- ecco_cost_summary.F : add ALLOW_OLD_ESTIM_CODES brackets,
  rename using_topex as using_tpj
- ecco_init_varia.F : initialize RHOsumGlob_0, VOLsumGlob_0
- ecco_phys.F : compute etanFull
- ecco_readparms.F : rename using_topex as using_tpj, add
  bpv4-grace to gencost list, initialize added parameters
- ecco_summary.F : include SIZE.h needed for augmented ecco.h
1 C $Header: /u/gcmpack/MITgcm/pkg/ecco/ecco_init_varia.F,v 1.1 2014/09/14 15:20:36 gforget Exp $
2 C $Name: $
3
4 #include "ECCO_OPTIONS.h"
5 #include "AD_CONFIG.h"
6
7 subroutine ecco_init_varia( mythid )
8
9 c ==================================================================
10 c SUBROUTINE ecco_init_varia
11 c ==================================================================
12 c
13 c o Initialise ecco variables.
14 c
15 c ==================================================================
16 c SUBROUTINE ecco_cost_init_varia
17 c ==================================================================
18
19 implicit none
20
21 c == global variables ==
22
23 #include "EEPARAMS.h"
24 #include "SIZE.h"
25 #include "GRID.h"
26
27 #include "ecco_cost.h"
28 #ifdef ALLOW_COST
29 # include "cost.h"
30 #endif
31
32 c == routine arguments ==
33
34 integer mythid
35
36 c == local variables ==
37
38 c == external functions ==
39
40 c == end of interface ==
41
42 #ifdef ALLOW_PSBAR_STERIC
43 RHOsumGlob_0=0. _d 0
44 VOLsumGlob_0=0. _d 0
45 #endif
46
47 CALL ECCO_PHYS( myThid )
48
49 #ifdef ALLOW_PSBAR_STERIC
50 RHOsumGlob_0=RHOsumGlob
51 VOLsumGlob_0=VOLsumGlob
52 #endif
53
54 CALL ECCO_COST_INIT_VARIA( myThid )
55
56 _BARRIER
57
58 return
59 end
60
  ViewVC Help
Powered by ViewVC 1.1.22