Changeset 2403

Timestamp:

2010-11-17T17:18:26+01:00 (13 years ago)

Author:

cetlod

Message:

Minor bug correction in PISCES

Location:

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/PISCES

Files:

• p4zsed.F90 (modified) (1 diff)
• trcrst_pisces.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -526 +526 @@
                      zmaskt = tmask(ji+1,jj,jk) * tmask(ji-1,jj,jk) * tmask(ji,jj+1,jk)    &
                         &                       * tmask(ji,jj-1,jk) * tmask(ji,jj,jk+1)
-                     IF( zmaskt == 0. )   cmask(ji,jj,jk ) = 0.1
+                     IF( zmaskt == 0. )   cmask(ji,jj,jk ) = MAX( 0.1, cmask(ji,jj,jk) ) 
                   ENDIF
                END DO

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/PISCES/trcrst_pisces.F90

@@ -21 +21 @@
    USE iom
    USE trcdta
+   USE lib_mpp
 
    IMPLICIT NONE