Changeset 10804 for NEMO/branches/CNRS

Timestamp:

2019-03-26T13:45:02+01:00 (4 years ago)

Author:

cetlod

Message:

Minor bugfix in PISCES

Location:

NEMO/branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES

Files:

• P4Z/p4zflx.F90 (modified) (1 diff)
• trcini_pisces.F90 (modified) (1 diff)

NEMO/branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90

@@ -387 +387 @@
       ENDIF
       !
-      IF(lwp) THEN                                 !* control print
-         WRITE(numout,*) ' Min-Max atmospheric CO2 = ', MINVAL(satmco2(:,:)),MAXVAL(satmco2(:,:))
-      ENDIF
-      !
    END SUBROUTINE p4z_patm
 

NEMO/branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -179 +179 @@
          xksi(:,:)    = 2.e-6
          xksimax(:,:) = xksi(:,:)
+         !
+         sized(:,:,:) = 1.0
+         sizen(:,:,:) = 1.0
+         sized(:,:,:) = 1.0
+         !
       END IF