Changeset 2235 for LMDZ5/trunk/libf/phylmd/hgardfou.F90

Timestamp:

Mar 17, 2015, 10:56:59 AM (10 years ago)

Author:

fhourdin

Message:

Modification de la façon d'arrêter le modèle en cas de plantage physique.
hgardfou n'arrête pas le modèle mais positionne abortphy à 1.
Le modèle ne s'arrête qu'après les écritures physiques.
Ceci permet d'avoir les sorties du dernier pas de temps lors d'un
plantage.
Si abortphy est déjà à 1, les tendances des différents processus
ne sont plus ajoutées jusqu'à la fin du pas de temps.

Changes in case of crash.
hgardfou does not stop the model anymore but rather put abortphy to 1.
The model is stoped after phys_output_write in order to have
the outputs of the final time-step.
If abortphy=1, the tendencies are not added anymore to the variables.

File:

• LMDZ5/trunk/libf/phylmd/hgardfou.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/hgardfou.F90

@@ -1 +1 @@
 
 ! $Id$
-SUBROUTINE hgardfou(t, tsol, text)
+SUBROUTINE hgardfou(t, tsol, text,abortphy)
   USE dimphy
   USE phys_state_var_mod
@@ -15 +15 @@
   CHARACTER(len=*), intent(in):: text
   CHARACTER (LEN=20) :: modname = 'hgardfou'
+  INTEGER abortphy
 
   INTEGER i, k, nsrf
@@ -128 +129 @@
   END DO
 
-  IF (.NOT. ok) CALL abort_gcm(modname, text, 1)
+!  IF (.NOT. ok) CALL abort_gcm(modname, text, 1)
+  IF (.NOT. ok) abortphy=1
 
 END SUBROUTINE hgardfou