/[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.12 by heimbach, Wed Oct 14 01:31:42 2009 UTC revision 1.13 by heimbach, Wed Oct 14 05:04:07 2009 UTC
# Line 35  ccccccccccccccccccccccccccc Line 35  ccccccccccccccccccccccccccc
35  c initialize parameters   c  c initialize parameters   c
36  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
37  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
38    # ifndef ALLOW_AUTODIFF_TAMC
39        IF ( useDIC ) THEN        IF ( useDIC ) THEN
40            print*,'QQ load dic parameters, initial vari'  # endif
41            CALL DIC_INI_FORCING(myThid)           CALL DIC_INIT_VARIA(myThid)
42            CALL DIC_SURFFORCING_INIT(myThid)           CALL DIC_INI_FORCING(myThid)
43            CALL DIC_BIOTIC_INIT(myThid)           CALL DIC_SURFFORCING_INIT(myThid)
44             CALL DIC_BIOTIC_INIT(myThid)
45    # ifndef ALLOW_AUTODIFF_TAMC
46        ENDIF        ENDIF
47    # endif
48  # ifdef ALLOW_CTRL  # ifdef ALLOW_CTRL
49        CALL DIC_SET_CONTROL(myThid)        CALL DIC_SET_CONTROL(myThid)
50  # endif  # endif
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22