/[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.8 by ce107, Tue Jul 31 23:01:58 2007 UTC revision 1.9 by dfer, Tue Apr 8 16:20:16 2008 UTC
# Line 15  C !USES: =============================== Line 15  C !USES: ===============================
15  #include "SIZE.h"  #include "SIZE.h"
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18    #include "GCHEM.h"
19  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
20  # include "GRID.h"  # include "GRID.h"
21  # include "DYNVARS.h"  # include "DYNVARS.h"
# Line 31  ccccccccccccccccccccccccccc Line 32  ccccccccccccccccccccccccccc
32  c initialize parameters   c  c initialize parameters   c
33  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
34  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
35          IF ( useDIC ) THEN
36            print*,'QQ load dic parameters, initial vari'            print*,'QQ load dic parameters, initial vari'
37  #ifdef ALLOW_AUTODIFF_TAMC            CALL DIC_READPARMS(myThid)
 c these two needed to be recalled for adjoint  
           call DIC_BIOTIC_PARAM(myThid)  
           call DIC_ABIOTIC_PARAM(myThid)  
 #endif /* ALLOW_AUTODIFF_TAMC */  
 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
42  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
43    
   
44  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
45    
46        RETURN        RETURN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22