Changeset 1525 for trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat

Timestamp:

Mar 30, 2016, 8:24:43 AM (9 years ago)

Author:

emillour

Message:

All GCMs:
More on enforcing dynamics/physics separation: get rid of references to "control_mod" from physics packages.
EM

Location:

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat

Files:

• phytitan/iniphysiq_mod.F90 (modified) (2 diffs)
• phytitan/scal_wind.F (moved) (moved from trunk/LMDZ.TITAN/libf/phytitan/scal_wind.F)
• phytitan/wind_scal.F (moved) (moved from trunk/LMDZ.TITAN/libf/phytitan/wind_scal.F)
• phyvenus/scal_wind.F (moved) (moved from trunk/LMDZ.VENUS/libf/phyvenus/scal_wind.F) (1 diff)
• phyvenus/wind_scal.F (moved) (moved from trunk/LMDZ.VENUS/libf/phyvenus/wind_scal.F) (1 diff)

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/iniphysiq_mod.F90

@@ -16 +16 @@
                                 klon_omp_end, & ! end index of local omp subgrid
                                 klon_mpi_begin ! start indes of columns (on local mpi grid)
+  USE control_mod, ONLY: nday
   USE comgeomphy, ONLY: initcomgeomphy, &
                         airephy, & ! physics grid area (m2)
@@ -175 +176 @@
 
   ! Initialize some "temporal and calendar" related variables
-  CALL init_time(annee_ref,day_ref,day_ini,day_end,ptimestep)
+  CALL init_time(annee_ref,day_ref,day_ini,day_end,nday,ptimestep)
 
 !$OMP END PARALLEL

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/scal_wind.F

@@ -15 +15 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comgeom.h"
 
 c   Arguments:

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/wind_scal.F

@@ -15 +15 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comgeom.h"
 
 c   Arguments: