Changeset 66 for trunk/libf/dyn3dpar/abort_gcm.F

Timestamp:

Feb 16, 2011, 4:57:45 PM (14 years ago)

Author:

emillour

Message:

EM: Mise a niveau par rapport a la version terrestre (LMDZ5V2.0-dev, rev 1487)

• Mise a jour des scripts (terrestres) 'makegcm' et 'create_make_gcm'
• Ajout du script 'makelmdz' (version "amelioree", en Bash, de makegcm)
• Mise a jour des routines dans phylmd (sauf regr_lat_time_climoz_m.F)

• disvert (dans dyn3d et dyn3dpar): passage au Fortran 90
• parallel.F90 (dyn3dpar): correction bug
• etat0_netcdf.F90 (dyn3d et dyn3dpar) : mise a jour mineure
• ce0l.F90 (dyn3dpar) : correction bug
• abort_gcm.F (dyn3dpar) : correction bug
• ugeostr.F90 (dyn3d et dyn3dpar) : passage au Fortran 90
• fluxstokenc_p.F (dyn3dpar) : correction bug
• iniacademic.F90 (dyn3d et dyn3dpar) : passage au Fortran 90
• friction_p.F (dyn3dpar) : correction bug
• infotrac.F90 (dyn3d et dyn3dpar) : correction bug mineur sur lecture traceurs
• caladvtrac.F (dyn3d) : modifications cosmetiques

File:

• trunk/libf/dyn3dpar/abort_gcm.F (modified) (2 diffs)

trunk/libf/dyn3dpar/abort_gcm.F

@@ -1 +1 @@
 !
-! $Id: abort_gcm.F 1425 2010-09-02 13:45:23Z lguez $
+! $Id: abort_gcm.F 1475 2011-01-21 14:41:03Z emillour $
 !
 c
@@ -45 +45 @@
       if (ierr .eq. 0) then
         write(lunout,*) 'Everything is cool'
-        stop
       else
         write(lunout,*) 'Houston, we have a problem ', ierr