Changeset 4755 for LMDZ6/trunk/libf/phylmdiso
- Timestamp:
- Nov 22, 2023, 3:46:17 PM (12 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r4745 r4755 6196 6196 !DC Calcul de la tendance due au methane 6197 6197 IF (ok_qch4) THEN 6198 ! d_q_ch4: H2O source in ppmv/sec6198 ! d_q_ch4: H2O source from CH4 in MMR/s (mass mixing ratio/s or kg H2O/kg air/s) 6199 6199 #ifdef CPP_StratAer 6200 6200 CALL stratH2O_methox(debut,paprs,d_q_ch4) 6201 6201 #else 6202 ! ecmwfroutine METHOX6202 ! ECMWF routine METHOX 6203 6203 CALL METHOX(1,klon,klon,klev,q_seri,d_q_ch4,pplay) 6204 6204 #endif 6205 ! a jout de la tendance d'humidite due aumethane6205 ! add humidity tendency due to methane 6206 6206 d_q_ch4_dtime(:,:) = d_q_ch4(:,:)*phys_tstep 6207 6207 #ifdef ISO … … 6214 6214 #endif 6215 6215 & ) 6216 d_q_ch4(:,:) = d_q_ch4_dtime(:,:)/phys_tstep 6217 #ifdef ISO 6218 d_xt_ch4(:,:,:) = d_xt_ch4_dtime(:,:,:)/phys_tstep 6216 d_q_ch4(:,:) = d_q_ch4_dtime(:,:)/phys_tstep ! update with H2O conserv done in add_phys_tend 6217 #ifdef ISO 6218 d_xt_ch4(:,:,:) = d_xt_ch4_dtime(:,:,:)/phys_tstep ! update with H2O conserv done in add_phys_tend 6219 6219 #endif 6220 6220 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.