/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_init_vari.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_init_vari.F

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

revision 1.3 by jahn, Thu Sep 22 16:01:30 2011 UTC revision 1.4 by jahn, Wed Dec 7 20:04:00 2011 UTC
# Line 88  c test.................... Line 88  c test....................
88  c set up ecosystem coefficients  c set up ecosystem coefficients
89  c  c
90  c seed randomization  c seed randomization
91            _BEGIN_MASTER( myThid )
92    
93          CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)          CALL DARWIN_RANDOM_INIT(darwin_seed, myThid)
94    
95  c initialize total number of functional groups tried  c initialize total number of functional groups tried
# Line 100  c initialize total number of functional Line 102  c initialize total number of functional
102  #endif  #endif
103           end do           end do
104    
105            _END_MASTER( myThid )
106    
107  c reduce amount of diaz  c reduce amount of diaz
108  #ifdef ALLOW_DIAZ  #ifdef ALLOW_DIAZ
109          do np = 1, npmax          do np = 1, npmax
# Line 120  c reduce amount of diaz Line 124  c reduce amount of diaz
124          enddo          enddo
125  #endif  #endif
126    
127            _BEGIN_MASTER( myThid )
128    
129  c initialize zooplankton  c initialize zooplankton
130           call MONOD_GENERATE_ZOO(MyThid)           call MONOD_GENERATE_ZOO(MyThid)
131    
# Line 179  c  no temp/nutrient limitation Line 185  c  no temp/nutrient limitation
185       &               (2*pcmax(np)))       &               (2*pcmax(np)))
186             enddo             enddo
187  #endif  #endif
            call MONOD_CHECK_CHL(myThid)  
188  #endif  #endif
189  #endif  #endif
190  c ANNA endif          _END_MASTER( myThid )
191    
192    #ifdef DYNAMIC_CHL
193    C this initializes fields...
194            call MONOD_CHECK_CHL(myThid)
195    #endif
196    
197           IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN           IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN
198  c write out initial phyto characteristics  c write out initial phyto characteristics
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22