New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3449 – NEMO

Changeset 3449


Ignore:
Timestamp:
2012-08-10T16:29:24+02:00 (12 years ago)
Author:
cetlod
Message:

ranch:2012/dev_r3438_LOCEAN15_PISLOB : minor bug corrections, see ticket #972

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3438_LOCEAN15_PISLOB/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90

    r3448 r3449  
    125125                    &   - 0.04406 * SQRT( tsn(ji,jj,jk,jp_sal) ) - 0.002847 * tsn(ji,jj,jk,jp_sal) 
    126126                  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 ) 
    128128                  ! PHOTOREDUCTION of complexed iron : Tagliabue and Arrigo (2006) 
    129129                  ! kph1=etot(ji,jj,jk)*0.0000001672*2.857142857143*spd modified to enhance 
     
    290290      ENDIF 
    291291 
    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       ENDIF 
    297  
    298292      !  Output of some diagnostics variables 
    299293      !     --------------------------------- 
     
    315309 
    316310      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
    317          WRITE(charout, FMT="('rem6')") 
     311         WRITE(charout, FMT="('fechem')") 
    318312         CALL prt_ctl_trc_info(charout) 
    319313         CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm) 
Note: See TracChangeset for help on using the changeset viewer.