Changeset 10416 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90
- Timestamp:
- 2018-12-19T12:45:43+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zsink.F90
r10375 r10416 35 35 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sinkfer !: Small BFe sinking fluxes 36 36 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sinkfer2 !: Big iron sinking fluxes 37 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sinkfep !: Fep sinking fluxes38 37 39 38 INTEGER :: ik100 … … 126 125 ENDIF 127 126 128 IF( ln_ligand ) THEN129 wsfep (:,:,:) = wfep130 !131 sinkfep(:,:,:) = 0.e0132 CALL trc_sink( kt, wsfep, sinkfep , jpfep, rfact2 )133 ENDIF134 135 127 ! Total carbon export per year 136 128 IF( iom_use( "tcexp" ) .OR. ( ln_check_mass .AND. kt == nitend .AND. knt == nrdttrc ) ) & … … 214 206 !! *** ROUTINE p4z_sink_alloc *** 215 207 !!---------------------------------------------------------------------- 216 INTEGER :: ierr( 3)208 INTEGER :: ierr(2) 217 209 !!---------------------------------------------------------------------- 218 210 ! … … 224 216 & sinkfer(jpi,jpj,jpk) , STAT=ierr(1) ) 225 217 ! 226 IF( ln_ligand ) ALLOCATE( sinkfep(jpi,jpj,jpk) , STAT=ierr(2) )227 228 218 IF( ln_p5z ) ALLOCATE( sinkingn(jpi,jpj,jpk), sinking2n(jpi,jpj,jpk) , & 229 & sinkingp(jpi,jpj,jpk), sinking2p(jpi,jpj,jpk) , STAT=ierr( 3) )219 & sinkingp(jpi,jpj,jpk), sinking2p(jpi,jpj,jpk) , STAT=ierr(2) ) 230 220 ! 231 221 p4z_sink_alloc = MAXVAL( ierr )
Note: See TracChangeset
for help on using the changeset viewer.