- Timestamp:
- 2011-10-24T10:47:03+02:00 (13 years ago)
- Location:
- branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zmort.F90
r2977 r2979 25 25 PUBLIC p4z_mort 26 26 PUBLIC p4z_mort_init 27 PUBLIC p4z_mort_alloc28 27 29 28 !! * Shared module variables … … 208 207 END DO 209 208 ! 210 209 IF(ln_ctl) THEN ! print mean trends (used for debugging) 211 210 WRITE(charout, FMT="('diat')") 212 211 CALL prt_ctl_trc_info(charout) 213 212 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm) 214 213 ENDIF 215 214 216 215 END SUBROUTINE p4z_diat -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90
r2977 r2979 182 182 ! Computation of production function for Carbon 183 183 ! --------------------------------------------- 184 zpislopen = zpislopead (ji,jj,jk) / ( ( r1_rday + bresp * r1_ day / chlcnm ) * rday + rtrn)185 zpislope2n = zpislopead2(ji,jj,jk) / ( ( r1_rday + bresp * r1_ day / chlcdm ) * rday + rtrn)184 zpislopen = zpislopead (ji,jj,jk) / ( ( r1_rday + bresp * r1_rday / chlcnm ) * rday + rtrn) 185 zpislope2n = zpislopead2(ji,jj,jk) / ( ( r1_rday + bresp * r1_rday / chlcdm ) * rday + rtrn) 186 186 zprbio(ji,jj,jk) = zprbio(ji,jj,jk) * ( 1.- EXP( -zpislopen * znanotot ) ) 187 187 zprdia(ji,jj,jk) = zprdia(ji,jj,jk) * ( 1.- EXP( -zpislope2n * zdiattot ) ) … … 487 487 WRITE(numout,*) ' excretion ratio of nanophytoplankton excret =', excret 488 488 WRITE(numout,*) ' excretion ratio of diatoms excret2 =', excret2 489 IF( ln_newprod ) 489 IF( ln_newprod ) THEN 490 490 WRITE(numout,*) ' basal respiration in phytoplankton bresp =', bresp 491 491 WRITE(numout,*) ' Maximum Chl/C in phytoplankton chlcmin =', chlcmin -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
r2977 r2979 51 51 TYPE(DIAG), DIMENSION(jp_pisces_3d) :: pisdia3d 52 52 !! 53 NAMELIST/nampisbio/ part,nrdttrc, wsbio, xkmort, ferat3, wsbio253 NAMELIST/nampisbio/ nrdttrc, wsbio, xkmort, ferat3, wsbio2 54 54 #if defined key_kriest 55 55 NAMELIST/nampiskrp/ xkr_eta, xkr_zeta, xkr_mass_min, xkr_mass_max … … 74 74 IF(lwp) THEN ! control print 75 75 WRITE(numout,*) ' Namelist : nampisbio' 76 WRITE(numout,*) ' part of calcite not dissolved in guts part =', part77 76 WRITE(numout,*) ' frequence pour la biologie nrdttrc =', nrdttrc 78 77 WRITE(numout,*) ' POC sinking speed wsbio =', wsbio -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r2977 r2979 294 294 ! 295 295 DO jn = 1, jptra 296 z diag_var = glob_sum( trn(:,:,:,jn) * cvol(:,:,:))297 z diag_varmin= MINVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) )298 z diag_varmax= MAXVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) )296 ztraf = glob_sum( trn(:,:,:,jn) * cvol(:,:,:) ) 297 zmin = MINVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 298 zmax = MAXVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 299 299 IF( lk_mpp ) THEN 300 300 CALL mpp_min( zmin ) ! min over the global domain
Note: See TracChangeset
for help on using the changeset viewer.