/[MITgcm]/MITgcm/pkg/gchem/gchem_init_vari.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_init_vari.F

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

revision 1.1 by stephd, Mon Oct 6 20:06:52 2003 UTC revision 1.2 by stephd, Thu Dec 4 22:40:16 2003 UTC
# Line 25  c initialize parameters   c Line 25  c initialize parameters   c
25  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
26  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
27            print*,'QQ load dic parameters, initial vari'            print*,'QQ load dic parameters, initial vari'
28    c these two needed to be recalled for adjoint
29              call DIC_BIOTIC_PARAM(myThid)
30              call DIC_ABIOTIC_PARAM(myThid)
31    c --
32              CALL DIC_INI_FORCING(myThid)
33            call DIC_SURFFORCING_INIT(myThid)            call DIC_SURFFORCING_INIT(myThid)
34            call DIC_BIOTIC_INIT(myThid )            call DIC_BIOTIC_INIT(myThid )
35  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22