Changeset 10362 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zpoc.F90
- Timestamp:
- 2018-11-30T16:38:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zpoc.F90
r10069 r10362 62 62 CHARACTER (len=25) :: charout 63 63 REAL(wp), DIMENSION(jpi,jpj ) :: totprod, totthick, totcons 64 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zremipoc, zremigoc, zorem3, ztremint 64 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zremipoc, zremigoc, zorem3, ztremint, zfolimi 65 65 REAL(wp), DIMENSION(jpi,jpj,jpk,jcpoc) :: alphag 66 66 !!--------------------------------------------------------------------- … … 90 90 orem (:,:,:) = 0. 91 91 ztremint(:,:,:) = 0. 92 zfolimi (:,:,:) = 0. 92 93 93 94 DO jn = 1, jcpoc … … 209 210 tra(ji,jj,jk,jpdoc) = tra(ji,jj,jk,jpdoc) + zorem2 210 211 tra(ji,jj,jk,jpfer) = tra(ji,jj,jk,jpfer) + zofer2 212 zfolimi(ji,jj,jk) = zofer2 211 213 END DO 212 214 END DO … … 239 241 tra(ji,jj,jk,jpgop) = tra(ji,jj,jk,jpgop) - zopop2 * (1. + solgoc) 240 242 tra(ji,jj,jk,jpbfe) = tra(ji,jj,jk,jpbfe) - zofer2 * (1. + solgoc) 243 zfolimi(ji,jj,jk) = zofer2 241 244 END DO 242 245 END DO … … 414 417 tra(ji,jj,jk,jppoc) = tra(ji,jj,jk,jppoc) - zorem 415 418 tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) - zofer 419 zfolimi(ji,jj,jk) = zfolimi(ji,jj,jk) + zofer 416 420 ENDIF 417 421 END DO … … 439 443 tra(ji,jj,jk,jpdop) = tra(ji,jj,jk,jpdop) + zopop 440 444 tra(ji,jj,jk,jpfer) = tra(ji,jj,jk,jpfer) + zofer 445 zfolimi(ji,jj,jk) = zfolimi(ji,jj,jk) + zofer 441 446 END DO 442 447 END DO … … 449 454 CALL iom_put( "REMINP" , zremipoc(:,:,:) * tmask(:,:,:) ) ! Remineralisation rate 450 455 CALL iom_put( "REMING" , zremigoc(:,:,:) * tmask(:,:,:) ) ! Remineralisation rate 456 CALL iom_put( "REMINF" , zfolimi(:,:,:) * tmask(:,:,:) * 1.e+9 * zrfact2 ) ! Remineralisation rate 451 457 ENDIF 452 458 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.