Changeset 5789 for LMDZ6

Timestamp:

Jul 28, 2025, 1:12:04 PM (6 days ago)

Author:

fhourdin

Message:

Bug fix for initialisation of tnondef.

File:

• LMDZ6/trunk/libf/phylmd/ini_undefSTD.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/ini_undefSTD.f90

@@ -59 +59 @@
     ! initialisation variables en debut du mois, de la journee ou des 6h
 
-    IF ( clef_files(n) .and. mod(itap,nint(freq_outnmc(n)/phys_tstep))==1) THEN
-      ! print*,'ini_undefSTD n itap',n,itap
+    !IF ( clef_files(n) .and. mod(itap,nint(freq_outnmc(n)/phys_tstep))==1) THEN
+    IF ( mod(itap,nint(freq_outnmc(n)/phys_tstep))==1) THEN
       DO k = 1, nlevstd
         DO i = 1, klon
           tnondef(i, k, n) = 0.
-          tsumstd(i, k, n) = 0.
-          usumstd(i, k, n) = 0.
-          vsumstd(i, k, n) = 0.
-          wsumstd(i, k, n) = 0.
-          phisumstd(i, k, n) = 0.
-          qsumstd(i, k, n) = 0.
-          rhsumstd(i, k, n) = 0.
-          uvsumstd(i, k, n) = 0.
-          vqsumstd(i, k, n) = 0.
-          vtsumstd(i, k, n) = 0.
-          wqsumstd(i, k, n) = 0.
-          vphisumstd(i, k, n) = 0.
-          wtsumstd(i, k, n) = 0.
-          u2sumstd(i, k, n) = 0.
-          v2sumstd(i, k, n) = 0.
-          t2sumstd(i, k, n) = 0.
-          o3sumstd(i, k, n) = 0.
-          o3daysumstd(i, k, n) = 0.
         END DO !i
       END DO !k
+      IF ( clef_files(n) ) THEN
+        ! print*,'ini_undefSTD n itap',n,itap
+        DO k = 1, nlevstd
+          DO i = 1, klon
+            tnondef(i, k, n) = 0.
+            tsumstd(i, k, n) = 0.
+            usumstd(i, k, n) = 0.
+            vsumstd(i, k, n) = 0.
+            wsumstd(i, k, n) = 0.
+            phisumstd(i, k, n) = 0.
+            qsumstd(i, k, n) = 0.
+            rhsumstd(i, k, n) = 0.
+            uvsumstd(i, k, n) = 0.
+            vqsumstd(i, k, n) = 0.
+            vtsumstd(i, k, n) = 0.
+            wqsumstd(i, k, n) = 0.
+            vphisumstd(i, k, n) = 0.
+            wtsumstd(i, k, n) = 0.
+            u2sumstd(i, k, n) = 0.
+            v2sumstd(i, k, n) = 0.
+            t2sumstd(i, k, n) = 0.
+            o3sumstd(i, k, n) = 0.
+            o3daysumstd(i, k, n) = 0.
+          END DO !i
+        END DO !k
+      END IF !
     END IF !
   END DO !n