Changeset 113

Timestamp:

Jul 28, 2000, 2:49:54 PM (24 years ago)

Author:

lmdzadmin

Message:

rajout debug

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
-        lafin = .true.
+c       lafin = .true.
 
         CALL calfis( nqmx, lafin ,rdayvrai,rday_ecri,time  ,
@@ -503 +503 @@
 
 c ajout debug
-               IF( lafin ) then  
-                 abort_message = 'Simulation finished'
-                 call abort_gcm(modname,abort_message,0)
-               ENDIF
+c              IF( lafin ) then  
+c                abort_message = 'Simulation finished'
+c                call abort_gcm(modname,abort_message,0)
+c              ENDIF
         
 c   ********************************************************************