Changeset 55

Timestamp:

2004-04-22T11:56:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX029 : # Add of the key_zdftke everywhere the array en(:,:,jk) appears to avoid compilation error that happens only when key_mpp is active but not key_zdftke

# Correction of the control test on nrstdt for restart case

File:

• trunk/NEMO/OPA_SRC/restart_mpp.h90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/restart_mpp.h90

@@ -196 +196 @@
        ! TKE arrays
 
-       IF (lk_zdftke) THEN
+#if defined key_zdftke
          DO jk = 1, jpk
             WRITE(inum,REC=irec) en(:,:,jk) ; irec = irec + 1 
          END DO
-       END IF
+#endif
 
 #if defined key_ice_lim
@@ -364 +364 @@
     ! Control of date
 
-    IF( (it0-it1) /= 1 .AND. ABS(nrstdt) == 1 ) THEN
+    IF( (it0-it1) /= 1 .AND. nrstdt /= 0 ) THEN
        lstop=.TRUE.
        IF(lwp) THEN
@@ -487 +487 @@
     ! TKE arrays
 
-    IF (lk_zdftke) THEN
+#if defined key_zdftke
     IF ( itke1 == 1 ) THEN
        DO jk = 1, jpk
@@ -500 +500 @@
        nrstdt = 2
     ENDIF
-    ENDIF
+#endif
 #if defined key_ice_lim
     ! Louvain La Neuve Sea Ice Model