Changeset 4046 for trunk/LMDZ.TITAN/libf/phytitan/surfini.F

Timestamp:

Feb 5, 2026, 5:50:35 PM (3 weeks ago)

Author:

aslmd

Message:

Titan CRM:
Add MESOSCALE precompiling flags not to call planetwide subroutine (only
for GCM)
EMo

File:

• trunk/LMDZ.TITAN/libf/phytitan/surfini.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/surfini.F

@@ -37 +37 @@
          ENDDO
       ENDDO
+
+#ifndef MESOSCALE
       call planetwide_minval(albedo_bareground,min_albedo)
       call planetwide_maxval(albedo_bareground,max_albedo)
@@ -47 +49 @@
       write(*,*) 'surfini: minimum corrected initial albedo',min_albedo
       write(*,*) 'surfini: maximum corrected initial albedo',max_albedo
+#endif