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

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

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

revision 1.8 by stephd, Thu Jul 26 18:05:34 2012 UTC revision 1.11 by jahn, Thu May 1 16:19:32 2014 UTC
# Line 39  C     /--------------------------------- Line 39  C     /---------------------------------
39  C     |  initialise common block biochemical parameters               |  C     |  initialise common block biochemical parameters               |
40  C     \--------------------------------------------------------------/  C     \--------------------------------------------------------------/
41    
42          _BEGIN_MASTER(myThid)
43    
44        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
45       &'// ======================================================='       &'// ======================================================='
46        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 238  c set nutrient ratios for phyto Line 240  c set nutrient ratios for phyto
240         val_R_PC=120.0 _d 0         val_R_PC=120.0 _d 0
241         val_R_PICPOC=0.8 _d 0         val_R_PICPOC=0.8 _d 0
242  #endif  #endif
243    #ifdef FIX_ZOO_QUOTAS
244           val_R_NP_zoo=val_R_NP
245           val_RFeP_zoo=val_RFeP
246           val_R_SiP_zoo=0.0 _d 0
247           val_R_PC_zoo=val_R_PC
248    #endif
249  c  c
250  #ifdef OLD_GRAZE  #ifdef OLD_GRAZE
251  c grazing hlaf saturation  c grazing hlaf saturation
# Line 334  c sinking rate for particulate matter (m Line 342  c sinking rate for particulate matter (m
342    
343  C make sure we have reserved enough space in Ptracers  C make sure we have reserved enough space in Ptracers
344        IF ( nCompZooMax .LT. 4 ) THEN        IF ( nCompZooMax .LT. 4 ) THEN
345    #ifndef ONLY_P_CYCLE
346          WRITE(msgBuf,'(A,A,I3)')          WRITE(msgBuf,'(A,A,I3)')
347       &    'MONOD_INIT_FIXED: ERROR: 4 zooplankton components, but ',       &    'MONOD_INIT_FIXED: ERROR: 4 zooplankton components, but ',
348       &    'nCompZooMax = ', nCompZooMax       &    'nCompZooMax = ', nCompZooMax
349          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , 1)
350          STOP 'ABNORMAL END: S/R MONOD_INIT_FIXED'          STOP 'ABNORMAL END: S/R MONOD_INIT_FIXED'
351    #endif
352        ENDIF        ENDIF
353        DO nz = 1,nzmax        DO nz = 1,nzmax
354          iZooP (nz)  = iZoo +                   (nz-1)*strideTypeZoo          iZooP (nz)  = iZoo +                   (nz-1)*strideTypeZoo
# Line 395  COJ set up diagnostics Line 405  COJ set up diagnostics
405  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
406  COJ  COJ
407    
408          _END_MASTER(myThid)
409    
410          RETURN
411          RETURN        END
         END  
412  C============================================================================  C============================================================================
413  #endif  #endif
414  #endif  #endif
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22