Changeset 3952 for trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_methods.F90
- Timestamp:
- Nov 5, 2025, 6:17:11 PM (6 weeks ago)
- File:
-
- 1 edited
-
trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_methods.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_methods.F90
r3560 r3952 98 98 99 99 res = 1._mm_wp 100 IF (rcs <= 0.0_mm_wp .OR. .NOT.mm_ w_ps2s) RETURN100 IF (rcs <= 0.0_mm_wp .OR. .NOT.mm_call_ps2s) RETURN 101 101 102 102 SELECT CASE(k+flow) … … 148 148 149 149 chx = 0 150 IF (.NOT.mm_ w_qe) THEN150 IF (.NOT.mm_call_qe) THEN 151 151 res = 1._mm_wp 152 152 RETURN
Note: See TracChangeset
for help on using the changeset viewer.
