- Timestamp:
- 2020-10-22T20:49:56+02:00 (3 years ago)
- Location:
- NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Property svn:externals
-
old new 1 ^/utils/build/arch@HEAD arch 2 ^/utils/build/makenemo@HEAD makenemo 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 ^/vendors/FCM@HEAD ext/FCM 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 1 ^/utils/build/arch@12130 arch 2 ^/utils/build/makenemo@12191 makenemo 3 ^/utils/build/mk@11662 mk 4 ^/utils/tools_r4.0-HEAD@12672 tools 5 ^/vendors/AGRIF/dev@10586 ext/AGRIF 6 ^/vendors/FCM@10134 ext/FCM 7 ^/vendors/IOIPSL@9655 ext/IOIPSL 8 9 # SETTE mapping (inactive) 10 #^/utils/CI/sette@12135 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/TOP/PISCES/P4Z/p4zmeso.F90
r11536 r13662 66 66 REAL(wp) :: zfact , zfood, zfoodlim, zproport, zbeta 67 67 REAL(wp) :: zmortzgoc, zfrac, zfracfe, zratio, zratio2, zfracal, zgrazcal 68 REAL(wp) :: zepsherf, zepshert, zepsherv, zgrarsig, zgraztotc, zgraztotn, zgraztotf 68 REAL(wp) :: zepsherf, zepshert, zepsherv, zepsherq 69 REAL(wp) :: zgrarsig, zgraztotc, zgraztotn, zgraztotf 69 70 REAL(wp) :: zgrarem2, zgrafer2, zgrapoc2, zprcaca, zmortz, zgrasrat, zgrasratn 70 71 REAL(wp) :: zrespz, ztortz, zgrazd, zgrazz, zgrazpof 71 72 REAL(wp) :: zgrazn, zgrazpoc, zgraznf, zgrazf 72 73 REAL(wp) :: zgrazfffp, zgrazfffg, zgrazffep, zgrazffeg 74 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgrazing2, zfezoo2, zz2ligprod 73 75 CHARACTER (len=25) :: charout 74 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgrazing, zfezoo275 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zw3d, zz2ligprod76 76 !!--------------------------------------------------------------------- 77 77 ! 78 78 IF( ln_timing ) CALL timing_start('p4z_meso') 79 !80 zgrazing(:,:,:) = 0._wp81 zfezoo2 (:,:,:) = 0._wp82 !83 IF (ln_ligand) THEN84 ALLOCATE( zz2ligprod(jpi,jpj,jpk) )85 zz2ligprod(:,:,:) = 0._wp86 ENDIF87 79 ! 88 80 DO jk = 1, jpkm1 … … 162 154 163 155 ! Total grazing ( grazing by microzoo is already computed in p4zmicro ) 164 zgrazing(ji,jj,jk) = zgraztotc 165 166 ! Mesozooplankton efficiency 167 ! -------------------------- 156 zgrazing2(ji,jj,jk) = zgraztotc 157 158 ! Mesozooplankton efficiency. 159 ! We adopt a formulation proposed by Mitra et al. (2007) 160 ! The gross growth efficiency is controled by the most limiting nutrient. 161 ! Growth is also further decreased when the food quality is poor. This is currently 162 ! hard coded : it can be decreased by up to 50% (zepsherq) 163 ! GGE can also be decreased when food quantity is high, zepsherf (Montagnes and 164 ! Fulton, 2012) 165 ! ----------------------------------------------------------------------------------- 168 166 zgrasrat = ( zgraztotf + rtrn )/ ( zgraztotc + rtrn ) 169 167 zgrasratn = ( zgraztotn + rtrn )/ ( zgraztotc + rtrn ) … … 171 169 zbeta = MAX(0., (epsher2 - epsher2min) ) 172 170 zepsherf = epsher2min + zbeta / ( 1.0 + 0.04E6 * 12. * zfood * zbeta ) 173 zepsherv = zepsherf * zepshert 171 zepsherq = 0.5 + (1.0 - 0.5) * zepshert * ( 1.0 + 1.0 ) / ( zepshert + 1.0 ) 172 zepsherv = zepsherf * zepshert * zepsherq 174 173 175 174 zgrarem2 = zgraztotc * ( 1. - zepsherv - unass2 ) & … … 233 232 ! 234 233 IF( lk_iomput .AND. knt == nrdttrc ) THEN 235 ALLOCATE( zw3d(jpi,jpj,jpk) ) 236 IF( iom_use( "GRAZ2" ) ) THEN 237 zw3d(:,:,:) = zgrazing(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ! Total grazing of phyto by zooplankton 238 CALL iom_put( "GRAZ2", zw3d ) 234 CALL iom_put( "PCAL" , prodcal(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) ! Calcite production 235 IF( iom_use("GRAZ2") ) THEN ! Total grazing of phyto by zooplankton 236 zgrazing2(:,:,jpk) = 0._wp ; CALL iom_put( "GRAZ2" , zgrazing2(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) 239 237 ENDIF 240 IF( iom_use( "PCAL" ) ) THEN 241 zw3d(:,:,:) = prodcal(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ! Calcite production 242 CALL iom_put( "PCAL", zw3d ) 238 IF( iom_use("FEZOO2") ) THEN 239 zfezoo2 (:,:,jpk) = 0._wp ; CALL iom_put( "FEZOO2", zfezoo2(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ) 243 240 ENDIF 244 IF( iom_use( "FEZOO2" ) ) THEN 245 zw3d(:,:,:) = zfezoo2(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ! 246 CALL iom_put( "FEZOO2", zw3d ) 241 IF( ln_ligand ) THEN 242 zz2ligprod(:,:,jpk) = 0._wp ; CALL iom_put( "LPRODZ2", zz2ligprod(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:) ) 247 243 ENDIF 248 IF( iom_use( "LPRODZ2" ) .AND. ln_ligand ) THEN249 zw3d(:,:,:) = zz2ligprod(:,:,:) * 1e9 * 1.e+3 * rfact2r * tmask(:,:,:)250 CALL iom_put( "LPRODZ2" , zw3d )251 ENDIF252 DEALLOCATE( zw3d )253 244 ENDIF 254 !255 IF (ln_ligand) DEALLOCATE( zz2ligprod )256 245 ! 257 246 IF(ln_ctl) THEN ! print mean trends (used for debugging) … … 290 279 ENDIF 291 280 ! 292 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton281 REWIND( numnatp_ref ) 293 282 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 294 283 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 295 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 284 285 REWIND( numnatp_cfg ) 296 286 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 297 287 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.