- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r8533 r9124 42 42 REAL(wp), PUBLIC :: epsher !: half sturation constant for grazing 1 43 43 44 45 44 !!---------------------------------------------------------------------- 46 45 !! NEMO/TOP 3.3 , NEMO Consortium (2010) … … 48 47 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 49 48 !!---------------------------------------------------------------------- 50 51 49 CONTAINS 52 50 … … 75 73 !!--------------------------------------------------------------------- 76 74 ! 77 IF( nn_timing == 1 )CALL timing_start('p4z_micro')75 IF( ln_timing ) CALL timing_start('p4z_micro') 78 76 ! 79 77 CALL wrk_alloc( jpi, jpj, jpk, zgrazing ) … … 196 194 CALL wrk_dealloc( jpi, jpj, jpk, zgrazing ) 197 195 ! 198 IF( nn_timing == 1 )CALL timing_stop('p4z_micro')196 IF( ln_timing ) CALL timing_stop('p4z_micro') 199 197 ! 200 198 END SUBROUTINE p4z_micro … … 202 200 203 201 SUBROUTINE p4z_micro_init 204 205 202 !!---------------------------------------------------------------------- 206 203 !! *** ROUTINE p4z_micro_init *** … … 214 211 !! 215 212 !!---------------------------------------------------------------------- 216 213 INTEGER :: ios ! Local integer 214 ! 217 215 NAMELIST/namp4zzoo/ part, grazrat, resrat, mzrat, xpref2c, xpref2p, & 218 216 & xpref2d, xthreshdia, xthreshphy, xthreshpoc, & 219 217 & xthresh, xkgraz, epsher, sigma1, unass 220 INTEGER :: ios ! Local integer output status for namelist read221 218 !!---------------------------------------------------------------------- 219 ! 222 220 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 223 221 READ ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 224 222 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist', lwp ) 225 223 ! 226 224 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 227 225 READ ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 228 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist', lwp )226 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist', lwp ) 229 227 IF(lwm) WRITE ( numonp, namp4zzoo ) 230 228 ! 231 229 IF(lwp) THEN ! control print 232 230 WRITE(numout,*) ' ' … … 249 247 WRITE(numout,*) ' half sturation constant for grazing 1 xkgraz =', xkgraz 250 248 ENDIF 251 249 ! 252 250 END SUBROUTINE p4z_micro_init 253 251
Note: See TracChangeset
for help on using the changeset viewer.