Changeset 3947 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Jun 21, 2021, 5:15:02 PM (4 years ago)

Author:

Ehouarn Millour

Message:

Nudging: fix the problem of having one extra step in the output guide_ins.nc file. This is done by reseting ok_guide to .false. once the restart file is generated, and thus in the ultimate forward Matsuno step that is done afterwards, nudging is not called.
EM

File:

• LMDZ6/trunk/libf/dyn3d/leapfrog.F (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/leapfrog.F

@@ -748 +748 @@
 
               CLOSE(99)
+              if (ok_guide) then
+                ! set ok_guide to false to avoid extra output
+                ! in following forward step
+                ok_guide=.false.
+              endif
               !!! Ehouarn: Why not stop here and now?
             ENDIF ! of IF (itau.EQ.itaufin)
@@ -868 +873 @@
      &                           vcov,ucov,teta,q,masse,ps)
 !                endif ! of if (planet_type.eq."earth")
+                if (ok_guide) then
+                  ! set ok_guide to false to avoid extra output
+                  ! in following forward step
+                  ok_guide=.false.
+                endif
               ENDIF ! of IF(itau.EQ.itaufin)