Changeset 3275 for trunk/LMDZ.PLUTO/libf/dynphy_lonlat

Timestamp:

Mar 20, 2024, 3:05:14 PM (11 months ago)

Author:

afalco

Message:

Pluto PCM:
Changed _vap to _gas;
Included surfprop.F90;
callcorrk includes methane
AF

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/lect_start_archive.F (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/lect_start_archive.F

@@ -776 +776 @@
       DO iq=1,nqtot
           txt=trim(tname(iq))//"_surf"
-          if (txt.eq."h2o_vap") then
-            ! There is no surface tracer for h2o_vap;
+          if (txt.eq."h2o_gas") then
+            ! There is no surface tracer for h2o_gas;
             ! "h2o_ice" should be loaded instead
             txt="h2o_ice_surf"
             write(*,*) 'lect_start_archive: loading surface tracer',
-     &                     ' h2o_ice instead of h2o_vap'
+     &                     ' h2o_ice instead of h2o_gas'
           endif