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

Timestamp:

Jul 5, 2000, 4:59:27 PM (24 years ago)

Author:

lmdzadmin

Message:

Version de travail de l'interface avec les surfaces. LF

File:

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

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

@@ -126 +126 @@
 
       LOGICAL offline  ! Controle du stockage ds "fluxmass"
-      PARAMETER (offline=.true.)
+      PARAMETER (offline=.false.)
 
       character*80 dynhist_file, dynhistave_file
@@ -140 +140 @@
 c   ----------------
 
+      abort_message = 'last timestep reached'
       modname = 'gcm'
       descript = 'Run GCM LMDZ'
@@ -434 +435 @@
            ENDIF
 c
+
+c rajout debug
+c        lafin = .true.
+
         CALL calfis( nqmx, lafin ,rdayvrai,rday_ecri,time  ,
      $                 ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
@@ -496 +501 @@
 
       END IF
+
+c ajout debug
+c               IF( lafin ) then  
+c                 abort_message = 'Simulation finished'
+c                 call abort_gcm(modname,abort_message,0)
+c               ENDIF
         
 c   ********************************************************************