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

Diff of /MITgcm/pkg/gchem/gchem_init_fixed.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 jmc, Sun Apr 6 20:51:10 2008 UTC
# Line 13  C experiment Line 13  C experiment
13  C !USES: ===============================================================  C !USES: ===============================================================
14        IMPLICIT NONE        IMPLICIT NONE
15  #include "SIZE.h"  #include "SIZE.h"
 #include "GRID.h"  
 #include "DYNVARS.h"  
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18    #include "GCHEM.h"
19    
20  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
21  C  myThid               :: thread number  C  myThid               :: thread number
# Line 28  CEOP Line 27  CEOP
27  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
28    
29  C jmc: simpler to put MASTER thread directive within individual S/R :  C jmc: simpler to put MASTER thread directive within individual S/R :
30  C      that leave the choice, for each S/R, to do either single (master)  C      that leave the choice, for each S/R, to do either single (master)
31  C      thread tasks or Multi-threaded tasks.  C      thread tasks or Multi-threaded tasks.
32  c        _BEGIN_MASTER( mythid )  c        _BEGIN_MASTER( mythid )
33  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
34  c initialize parameters   c  c initialize parameters   c
35  ccccccccccccccccccccccccccc  ccccccccccccccccccccccccccc
36  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
37            print*,'QQ load dic parameters, initial fixed'        IF ( useDIC ) THEN
38            call DIC_ABIOTIC_PARAM( myThid )            print*,'QQ load dic parameters, initial fixed'
39            call DIC_BIOTIC_PARAM( myThid )            CALL DIC_ABIOTIC_PARAM( myThid )
40              CALL DIC_BIOTIC_PARAM( myThid )
41              CALL DIC_INIT_FIXED( myThid )
42          ENDIF
43  #endif /* ALLOW_DIC */  #endif /* ALLOW_DIC */
44  #ifdef ALLOW_CFC  #ifdef ALLOW_CFC
45          IF ( useCFC ) THEN
46            print*,'QQ start cfc params'            print*,'QQ start cfc params'
47            call CFC_PARAM( myThid )            CALL CFC_PARAM( myThid )
48            print*,'QQ read cfc atmos data'            print*,'QQ read cfc atmos data'
49            call CFC_ATMOS( myThid )            CALL CFC_ATMOS( myThid )
50          ENDIF
51  #endif /* ALLOW_CFC */  #endif /* ALLOW_CFC */
52  c         _END_MASTER( mythid )  c         _END_MASTER( mythid )
53    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22