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

Timestamp:

Mar 17, 2015, 10:56:59 AM (9 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/add_pbl_tend.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/add_pbl_tend.F90

@@ -1 @@
-SUBROUTINE add_pbl_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text)
+SUBROUTINE add_pbl_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text,abortphy)
   ! ======================================================================
   ! Ajoute les tendances de couche limite, soit determinees par la
@@ -20 +20 @@
   REAL hqturb_gcssold(llm)
   REAL dtime_frcg
+  INTEGER abortphy
   LOGICAL turb_fcg_gcssold
   COMMON /turb_forcing/dtime_frcg, hthturb_gcssold, hqturb_gcssold, &
@@ -46 +47 @@
     PRINT *, ' add_pbl_tend, zzdt ', zzdt
     PRINT *, ' add_pbl_tend, zzdq ', zzdq
-    CALL add_phys_tend(zdu, zdv, zzdt, zzdq, zdql, zdqi, paprs, text)
+    CALL add_phys_tend(zdu, zdv, zzdt, zzdq, zdql, zdqi, paprs, text,abortphy)
   ELSE
-    CALL add_phys_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text)
+    CALL add_phys_tend(zdu, zdv, zdt, zdq, zdql, zdqi, paprs, text,abortphy)
   END IF