Changeset 3449 for branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM
- Timestamp:
- 2012-08-10T16:29:24+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90
r3448 r3449 125 125 & - 0.04406 * SQRT( tsn(ji,jj,jk,jp_sal) ) - 0.002847 * tsn(ji,jj,jk,jp_sal) 126 126 zkox = ( 10.** zkox ) * spd 127 zkox = zkox * zoxy/ ( chemo2(ji,jj,jk) + rtrn )127 zkox = zkox * MAX( 1.e-6, zoxy) / ( chemo2(ji,jj,jk) + rtrn ) 128 128 ! PHOTOREDUCTION of complexed iron : Tagliabue and Arrigo (2006) 129 129 ! kph1=etot(ji,jj,jk)*0.0000001672*2.857142857143*spd modified to enhance … … 290 290 ENDIF 291 291 292 IF(ln_ctl) THEN ! print mean trends (used for debugging)293 WRITE(charout, FMT="('rem5')")294 CALL prt_ctl_trc_info(charout)295 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm)296 ENDIF297 298 292 ! Output of some diagnostics variables 299 293 ! --------------------------------- … … 315 309 316 310 IF(ln_ctl) THEN ! print mean trends (used for debugging) 317 WRITE(charout, FMT="(' rem6')")311 WRITE(charout, FMT="('fechem')") 318 312 CALL prt_ctl_trc_info(charout) 319 313 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm)
Note: See TracChangeset
for help on using the changeset viewer.