Changeset 4996 for LMDZ6/trunk/libf/dyn3dmem/vlspltgen_loc.F
- Timestamp:
- Jun 27, 2024, 9:27:27 AM (8 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/vlspltgen_loc.F
r4469 r4996 10 10 c 11 11 c ******************************************************************** 12 c S hema d'advection " pseudo amont " .12 c Schema d'advection " pseudo amont " . 13 13 c + test sur humidite specifique: Q advecte< Qsat aval 14 14 c (F. Codron, 10/99) … … 32 32 USE vlspltgen_mod 33 33 USE comconst_mod, ONLY: cpp 34 USE logic_mod, ONLY: adv_qsat_liq 34 35 IMPLICIT NONE 35 36 … … 108 109 ENDDO 109 110 DO ij = ijb, ije 110 zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) ) 111 IF (adv_qsat_liq) THEN 112 zdelta = 0. 113 ELSE 114 zdelta = MAX( 0., SIGN(1., rtt - tempe(ij)) ) 115 ENDIF 111 116 play = 0.5*(p(ij,l)+p(ij,l+1)) 112 117 qsat(ij,l) = MIN(0.5, r2es* FOEEW(tempe(ij),zdelta) / play )
Note: See TracChangeset
for help on using the changeset viewer.