Changeset 112 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

Timestamp:

Jul 28, 2000, 2:38:04 PM (24 years ago)

Author:

lmdzadmin

Message:

Mise au point de l'interface en force, ca tourne sur un pas de temps
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

@@ -437 +437 @@
 
 c rajout debug
-c        lafin = .true.
+        lafin = .true.
 
         CALL calfis( nqmx, lafin ,rdayvrai,rday_ecri,time  ,
@@ -503 +503 @@
 
 c ajout debug
-c               IF( lafin ) then  
-c                 abort_message = 'Simulation finished'
-c                 call abort_gcm(modname,abort_message,0)
-c               ENDIF
+               IF( lafin ) then  
+                 abort_message = 'Simulation finished'
+                 call abort_gcm(modname,abort_message,0)
+               ENDIF
         
 c   ********************************************************************