Changeset 4009 for trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

Timestamp:

Jan 14, 2026, 8:30:25 PM (10 days ago)

Author:

aslmd

Message:

MESOSCALE: setting off subgrid slopes for mesoscale. still has to add a dimension with index 1 to many surface fields.

File:

• trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

@@ -88 +88 @@
 #ifndef MESOSCALE
       if(is_master) then
-#endif
         status = nf90_open(filename, nf90_nowrite, ncid)
         if (status /= nf90_noerr) then
@@ -105 +104 @@
           endif
         endif
-#ifndef MESOSCALE
       endif
       call bcast(nslope)
+#else
+      print *, "subgrid slopes temporarily switched off in mesoscale, nslope=1"
+      nslope=1
 #endif