Changeset 4126 for trunk/LMDZ.GENERIC

Timestamp:

Mar 13, 2026, 10:58:17 AM (4 weeks ago)

Author:

aslmd

Message:

a few fixes taken from the Titan model

Location:

trunk/LMDZ.GENERIC/libf/phygeneric

Files:

• inifis_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)
• surfini.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/inifis_mod.F90

@@ -97 +97 @@
   avocado = 6.022141e23   ! added by RW
 
-  ! Initialize some "temporal and calendar" related variables
-#ifndef MESOSCALE
+!  ! Initialize some "temporal and calendar" related variables
+!#ifndef MESOSCALE
   CALL init_time(day_ini,pdaysec,nday,ptimestep)
-#endif
+!#endif
 
   ! read in some parameters from "run.def" for physics,

trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90

@@ -2202 +2202 @@
 
 
-
+#ifndef MESOSCALE
+! diagnostics for GCM
       ! Surface and soil temperature information
       call planetwide_sumval(cell_area(:)*tsurf(:)/totarea_planet,Ts1)
@@ -2273 +2274 @@
 
       endif ! end of 'corrk'
-
+#endif
 
       ! Diagnostic to test radiative-convective timescales in code.

trunk/LMDZ.GENERIC/libf/phygeneric/surfini.F

@@ -51 +51 @@
          albedo_bareground(ig)=albedodat(ig)
       ENDDO
+      
+#ifndef MESOSCALE
       call planetwide_minval(albedo_bareground,min_albedo)
       call planetwide_maxval(albedo_bareground,max_albedo)
       write(*,*) 'surfini: minimum bare ground albedo',min_albedo
       write(*,*) 'surfini: maximum bare ground albedo',max_albedo
-
 
       ! Step 3 : Surface albedo already loaded from startfi.nc
@@ -64 +65 @@
       write(*,*) 'surfini: minimum corrected initial albedo',min_albedo
       write(*,*) 'surfini: maximum corrected initial albedo',max_albedo
+#endif