Changeset 3594 for LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

Timestamp:

Oct 29, 2019, 7:32:03 AM (5 years ago)

Author:

fhourdin

Message:

Improvement for SCM standard format

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

@@ -1228 +1228 @@
 !! Increment state variables
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+print*,'OLDLMDZ1D AANT'
     IF (flag_inhib_forcing == 0) then ! if tendency of forcings should be added
+print*,'OLDLMDZ1D ARES' , forcing_sandu
 
 ! pour les cas sandu et astex, on reclacule u,v,q,temp et teta dans 1D_nudge_sandu_astex.h
@@ -1266 +1268 @@
      &             +dt_cooling(1:mxcalc))  ! Taux de chauffage ou refroid.
 
+print*,'OLDLMDZ1D IOPH'
+      CALL iophys_ecrit('d_t_adv',klev,'d_t_adv','m/s',d_t_adv)
+      CALL iophys_ecrit('d_t_nudge',klev,'d_t_nudge','m/s',d_t_nudge)
+
       endif  ! forcing_sandu or forcing_astex