/[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.5 by mlosch, Fri Nov 19 21:28:47 2004 UTC revision 1.6 by stephd, Thu Aug 18 19:29:51 2005 UTC
# Line 29  CEOP Line 29  CEOP
29  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
30  c initialize parameters   c  c initialize parameters   c
31  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
32  #ifdef DIC_BIOTIC  #ifdef ALLOW_DIC
33            print*,'QQ load dic parameters, initial vari'            print*,'QQ load dic parameters, initial vari'
34  c these two needed to be recalled for adjoint  c these two needed to be recalled for adjoint
35            call DIC_BIOTIC_PARAM(myThid)            call DIC_BIOTIC_PARAM(myThid)
# Line 38  c -- Line 38  c --
38            CALL DIC_INI_FORCING(myThid)            CALL DIC_INI_FORCING(myThid)
39            call DIC_SURFFORCING_INIT(myThid)            call DIC_SURFFORCING_INIT(myThid)
40            call DIC_BIOTIC_INIT(myThid )            call DIC_BIOTIC_INIT(myThid )
41  #endif /* DIC_BIOTIC */  #endif /* ALLOW_DIC */
42            _END_MASTER( mythid )            _END_MASTER( mythid )
43    
44    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22