Changeset 537 for trunk/LMDZ.GENERIC/libf/phystd/interpolateH2Ocont.F90
- Timestamp:
- Feb 17, 2012, 11:40:38 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/interpolateH2Ocont.F90
r526 r537 51 51 amagatF=(273.15/temp)*(presF/101325.0) 52 52 53 if(firstcall)then 53 if(firstcall)then ! called by sugas_corrk only 54 print*,'----------------------------------------------------' 55 print*,'Initialising H2O continuum from MT_CKD data...' 54 56 55 57 ! 1.1 Open the ASCII files
Note: See TracChangeset
for help on using the changeset viewer.