Changeset 858 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES/p4zsed.F90

Timestamp:

2008-03-13T15:17:04+01:00 (16 years ago)

Author:

cetlod

Message:

include the new version of PISCES model , see ticket:91

File:

• branches/dev_001_GM/NEMO/TOP_SRC/PISCES/p4zsed.F90 (modified) (6 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -17 +17 @@
    USE sms
    USE lib_mpp
+   USE prtctl_trc
+
 
    IMPLICIT NONE
@@ -50 +52 @@
       REAL(wp), DIMENSION(jpi,jpj)     ::   zsidep
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   znitrpot, zirondep
+      CHARACTER (len=25) :: charout
       !!---------------------------------------------------------------------
 
@@ -221 +224 @@
             DO ji = 2, jpim1
                zdenitot = zdenitot + denitr(ji,jj,jk) * rdenit * e1t(ji,jj) * e2t(ji,jj)   &
-                  &    *fse3t(ji,jj,jk) * tmask(ji,jj,jk) * tmask_i(ji,jj) * znegtr(ji,jj,jk)
+                  &    *fse3t(ji,jj,jk) * tmask(ji,jj,jk) * tmask_i(ji,jj) * xnegtr(ji,jj,jk)
             END DO
          END DO
@@ -231 +234 @@
       ! -------------------------------------------------------------
 
+!CDIR NOVERRCHK
       DO jk = 1, jpk
-         DO jj = 1, jpj
+!CDIR NOVERRCHK
+         DO jj = 1, jpj
+!CDIR NOVERRCHK
             DO ji = 1, jpi
                zlim = ( 1.- xnanono3(ji,jj,jk) - xnanonh4(ji,jj,jk) )
@@ -265 +271 @@
             DO ji = 1, jpi
 # if ! defined key_cfg_1d && ( defined key_orca_r4 || defined key_orca_r2 || defined key_orca_r05 || defined key_orca_r025 )
-               zfact = znitrpot(ji,jj,jk) * zdenitot / znitrpottot
+!!               zfact = znitrpot(ji,jj,jk) * zdenitot / znitrpottot
+               zfact = znitrpot(ji,jj,jk) * 1.e-7
 # else
                zfact = znitrpot(ji,jj,jk) * 1.e-7
@@ -285 +292 @@
 # endif
       !
+       IF(ln_ctl)   THEN  ! print mean trends (used for debugging)
+         WRITE(charout, FMT="('sed ')")
+         CALL prt_ctl_trc_info(charout)
+         CALL prt_ctl_trc(tab4d=trn, mask=tmask, clinfo=ctrcnm)
+       ENDIF
+
    END SUBROUTINE p4z_sed