Changeset 4066 for LMDZ6/trunk/libf
- Timestamp:
- Jan 27, 2022, 12:11:53 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4062 r4066 2244 2244 IF (nqo.eq.2) THEN 2245 2245 qs_seri(i,k) = 0. 2246 rneb_seri(i,k) = 0. 2246 2247 ELSE IF (nqo.eq.3) THEN 2247 2248 qs_seri(i,k) = qx(i,k,isol) 2249 rneb_seri(i,k) = 0. 2248 2250 ELSE IF (nqo.eq.4) THEN 2249 2251 qs_seri(i,k) = qx(i,k,isol)
Note: See TracChangeset
for help on using the changeset viewer.