Changeset 190 for LMDZ.3.3/trunk

Timestamp:

Mar 29, 2001, 10:51:45 AM (23 years ago)

Author:

lmdzadmin

Message:

Rajout de ok_nudge pour les runs nudges
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/gcm.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/dyn3d/gcm.F

@@ -137 +137 @@
       LOGICAL true_calendar
       PARAMETER (true_calendar = .false.)
+C Run nudge
+      LOGICAL ok_nudge
+      PARAMETER (ok_nudge = .false.)
 
 c-----------------------------------------------------------------------
@@ -322 +325 @@
 
    1  CONTINUE
-c     call nudge(itau,ucov,vcov,teta,masse,ps)
+
+      if (ok_nudge) then
+        call nudge(itau,ucov,vcov,teta,masse,ps)
+      endif
 c
 c     IF( MOD( itau, 10* day_step ).EQ.0 )  THEN