Changeset 3316 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

Apr 25, 2024, 3:58:31 PM (8 months ago)

Author:

jbclement

Message:

Mars PCM:
Reversion of r3305 and r3307.
JBC

File:

• trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90 (modified) (1 diff)

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

@@ -467 +467 @@
      ! Physics:
 #ifdef CPP_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)
+     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)
 #endif
   ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))