Changeset 1543 for trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

Timestamp:

Apr 22, 2016, 9:02:11 AM (9 years ago)

Author:

emillour

Message:

All models: Further adaptations to keep up with changes in LMDZ5 concerning
physics/dynamics separation:

• dyn3d:
• adapted gcm.F so that all physics initializations are now done in iniphysiq.

• dyn3dpar:
• adapted gcm.F so that all physics initializations are now done in iniphysiq.
• updated calfis_p.F to follow up with changes.
• copied over updated "bands.F90" from LMDZ5.

• dynphy_lonlat:
• calfis_p.F90, mod_interface_dyn_phys.F90, follow up of changes in phy_common/mod_* routines

• phy_common:
• added "geometry_mod.F90" to store information about the grid (replaces phy*/comgeomphy.F90) and give variables friendlier names: rlond => longitude , rlatd => latitude, airephy => cell_area, cuphy => dx , cvphy => dy
• added "physics_distribution_mod.F90"
• updated "mod_grid_phy_lmdz.F90", "mod_phys_lmdz_mpi_data.F90", "mod_phys_lmdz_para.F90", "mod_phys_lmdz_mpi_transfert.F90", "mod_grid_phy_lmdz.F90", "mod_phys_lmdz_omp_data.F90", "mod_phys_lmdz_omp_transfert.F90", "write_field_phy.F90" and "ioipsl_getin_p_mod.F90" to LMDZ5 versions.

• phy[venus/titan/mars/std]:
• removed "init_phys_lmdz.F90", "comgeomphy.F90"; adapted routines to use geometry_mod (longitude, latitude, cell_area, etc.)

EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/clmain.F (modified) (7 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

@@ -11 +11 @@
      .                  paprs,pplay,ppk,radsol,albe,
      .                  solsw, sollw, sollwdown, fder,
-     .                  rlon, rlat, cufi, cvfi, 
+     .                  rlon, rlat, dx, dy, 
      .                  debut, lafin, 
      .                  d_t,d_u,d_v,d_ts,
@@ -52 +52 @@
 c radsol---input-R- flux radiatif net (positif vers le sol) en W/m**2
 c rlat-----input-R- latitude en degree
-c cufi-----input-R- resolution des mailles en x (m)
-c cvfi-----input-R- resolution des mailles en y (m)
+c dx-----input-R- resolution des mailles en x (m)
+c dy-----input-R- resolution des mailles en y (m)
 c
 c d_t------output-R- le changement pour "t"
@@ -80 +80 @@
 ! ADAPTATION GCM POUR CP(T)
       real ppk(klon,klev)
-      REAL rlon(klon), rlat(klon), cufi(klon), cvfi(klon)
+      REAL rlon(klon), rlat(klon), dx(klon), dy(klon)
       REAL d_t(klon, klev)
       REAL d_u(klon, klev), d_v(klon, klev)
@@ -398 +398 @@
 ! ADAPTATION GCM POUR CP(T)
       CALL clqh(dtime, itap, debut,lafin,
-     e          rlon, rlat, cufi, cvfi,
+     e          rlon, rlat, dx, dy,
      e          knon, 
      e          soil_model, ytsoil,
@@ -465 +465 @@
 
       SUBROUTINE clqh(dtime,itime, debut,lafin,
-     e                rlon, rlat, cufi, cvfi, 
+     e                rlon, rlat, dx, dy, 
      e                knon, 
      $                soil_model,tsoil,
@@ -510 +510 @@
       REAL albedo(klon)       ! albedo de la surface
       real rmu0(klon)         ! cosinus de l'angle solaire zenithal
-      real rlon(klon), rlat(klon), cufi(klon), cvfi(klon)
+      real rlon(klon), rlat(klon), dx(klon), dy(klon)
 c
       REAL d_t(klon,klev)     ! incrementation de "t"
@@ -686 +686 @@
       CALL interfsurf_hq(itime, dtime, rmu0,
      e klon, nbp_lon, nbp_lat-1, knon, 
-     e rlon, rlat, cufi, cvfi, 
+     e rlon, rlat, dx, dy, 
      e debut, lafin, soil_model, nsoilmx,tsoil, 
      e zlev1,  u1lay, v1lay, temp_air, epot_air,