Changeset 3686 for LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90
- Timestamp:
- May 27, 2020, 2:59:10 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90
r3680 r3686 49 49 !#include "indicesol.h" 50 50 51 #include "compar1d _std.h"51 #include "compar1d.h" 52 52 #include "flux_arp.h" 53 53 #include "date_cas.h" … … 291 291 !--------------------------------------------------------------------- 292 292 !Al1 293 call conf_unicol _std293 call conf_unicol 294 294 !Al1 moves this gcssold var from common fcg_gcssold to 295 295 Turb_fcg_gcssold = xTurb_fcg_gcssold … … 1033 1033 IF ( play(l) < p_nudging_v .AND. nint(nudging_v) /= 0 ) & 1034 1034 & d_v_nudge(l)=(v_nudg_mod_cas(l)-v(l))/nudging_v 1035 IF ( play(l) < p_nudging_t emp .AND. nint(nudging_temp) /= 0 ) &1036 & d_t_nudge(l)=(temp_nudg_mod_cas(l)-temp(l))/nudging_t emp1035 IF ( play(l) < p_nudging_t .AND. nint(nudging_t) /= 0 ) & 1036 & d_t_nudge(l)=(temp_nudg_mod_cas(l)-temp(l))/nudging_t 1037 1037 IF ( play(l) < p_nudging_qv .AND. nint(nudging_qv) /= 0 ) & 1038 1038 & d_q_nudge(l,1)=(qv_nudg_mod_cas(l)-q(l,1))/nudging_qv 1039 IF ((adv_temp.eq.1) .and. (forc_w.eq.0)) then1040 d_t_adv(l)=alpha*omega(l)/rcpd+dt_mod_cas(l)1041 ELSE IF ((adv_temp.eq.1) .and. (forc_w.eq.1)) then1042 d_t_adv(l)=alpha*omega(l)/rcpd+ht_mod_cas(l)-d_t_dyn_z(l)1043 ENDIF1044 1045 1039 ENDDO 1046 1040
Note: See TracChangeset
for help on using the changeset viewer.