Changeset 4126 for trunk/LMDZ.GENERIC/libf/phygeneric/surfini.F

Timestamp:

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

Author:

aslmd

Message:

a few fixes taken from the Titan model

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/surfini.F (modified) (2 diffs)

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