Changeset 3305 for trunk/LMDZ.COMMON

Timestamp:

Apr 18, 2024, 11:38:40 AM (7 months ago)

Author:

jbclement

Message:

Mars PCM:

• Addition of the "startfi" file name as an argument for "phys_state_var_init_mod.F90"/"iniphysiq_mod.F90" to be able to initialize correctly the 3D PEM with its dedicated "startfi" file name.
• Small update of xml files for XIOS in the deftank, mainly to make the 3D PEM run with slopes.
• Few cleanings in "phyetat0_mod.F90".

JBC

Location:

trunk/LMDZ.COMMON/libf

Files:

• dyn3d/gcm.F90 (modified) (3 diffs)
• dyn3dpar/gcm.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

@@ -467 +467 @@
      ! Physics:
 #ifdef CPP_PHYS
-     CALL iniphysiq(iim,jjm,llm, &
-          (jjm-1)*iim+2,comm_lmdz, &
-          daysec,day_ini,dtphys/nsplit_phys, &
-          rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
-          iflag_phys)
+     CALL iniphysiq('startfi.nc',iim,jjm,llm,                       &
+                    (jjm-1)*iim+2,comm_lmdz,                        &
+                    daysec,day_ini,dtphys/nsplit_phys,              &
+                    rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
+                    iflag_phys)
 #endif
   ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
@@ -502 +502 @@
     t_ops =((1.0*iecri)/day_step) * daysec  
     t_wrt = daysec ! iecri * daysec ! write output every t_wrt
-    CALL inithist(day_ref,annee_ref,time_step, &
-                   t_ops,t_wrt)
+    CALL inithist(day_ref,annee_ref,time_step,t_ops,t_wrt)
   endif
 
@@ -510 +509 @@
     t_ops = iperiod * time_step ! do operations every t_ops
     t_wrt = periodav * daysec   ! write output every t_wrt
-    CALL initdynav(day_ref,annee_ref,time_step, &
-            t_ops,t_wrt)
+    CALL initdynav(day_ref,annee_ref,time_step,t_ops,t_wrt)
   END IF
   dtav = iperiod*dtvr/daysec

trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

@@ -487 +487 @@
 ! Physics
 #ifdef CPP_PHYS
-         CALL iniphysiq(iim,jjm,llm,
+         CALL iniphysiq('startfi.nc',iim,jjm,llm,
      &                distrib_phys(mpi_rank),comm_lmdz,
      &                daysec,day_ini,dtphys/nsplit_phys,