Changeset 2860 for trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90
- Timestamp:
- Jan 4, 2023, 12:42:33 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90
r2655 r2860 732 732 dummy = -9999 733 733 call interpolateN2H2(592.D+0,278.15D+0,200000.D+0,10000.D+0,testcont,.true.,dummy) 734 elseif (jgas .eq. igas_CO2) then 735 dummy = -9999 736 call interpolateCO2H2(592.D+0,278.15D+0,200000.D+0,10000.D+0,testcont,.true.,dummy) 734 737 elseif (jgas .eq. igas_He) then 735 738 dummy = -9999
Note: See TracChangeset
for help on using the changeset viewer.