- Timestamp:
- 2019-12-16T14:38:32+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zlim.F90
r11960 r12258 216 216 ! 217 217 IF( lk_iomput .AND. knt == nrdttrc ) THEN ! save output diagnostics 218 IF( iom_use( "xfracal" ) )CALL iom_put( "xfracal", xfracal(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht219 IF( iom_use( "LNnut" ) )CALL iom_put( "LNnut" , xlimphy(:,:,:) * tmask(:,:,:) ) ! Nutrient limitation term220 IF( iom_use( "LDnut" ) )CALL iom_put( "LDnut" , xlimdia(:,:,:) * tmask(:,:,:) ) ! Nutrient limitation term221 IF( iom_use( "LNFe" ) )CALL iom_put( "LNFe" , xlimnfe(:,:,:) * tmask(:,:,:) ) ! Iron limitation term222 IF( iom_use( "LDFe" ) )CALL iom_put( "LDFe" , xlimdfe(:,:,:) * tmask(:,:,:) ) ! Iron limitation term218 CALL iom_put( "xfracal", xfracal(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht 219 CALL iom_put( "LNnut" , xlimphy(:,:,:) * tmask(:,:,:) ) ! Nutrient limitation term 220 CALL iom_put( "LDnut" , xlimdia(:,:,:) * tmask(:,:,:) ) ! Nutrient limitation term 221 CALL iom_put( "LNFe" , xlimnfe(:,:,:) * tmask(:,:,:) ) ! Iron limitation term 222 CALL iom_put( "LDFe" , xlimdfe(:,:,:) * tmask(:,:,:) ) ! Iron limitation term 223 223 ENDIF 224 224 ! … … 283 283 ENDIF 284 284 ! 285 nitrfac (:,:,:) = 0._wp 285 nitrfac (:,:,jpk) = 0._wp 286 nitrfac2(:,:,jpk) = 0._wp 287 xfracal (:,:,jpk) = 0._wp 288 xlimphy (:,:,jpk) = 0._wp 289 xlimdia (:,:,jpk) = 0._wp 290 xlimnfe (:,:,jpk) = 0._wp 291 xlimdfe (:,:,jpk) = 0._wp 286 292 ! 287 293 END SUBROUTINE p4z_lim_init
Note: See TracChangeset
for help on using the changeset viewer.