Changeset 1543 for trunk/LMDZ.COMMON/libf/dynphy_lonlat/mod_interface_dyn_phys.F90

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.COMMON/libf/dynphy_lonlat/mod_interface_dyn_phys.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/dynphy_lonlat/mod_interface_dyn_phys.F90

@@ -1 +1 @@
 ! 
-! $Id: mod_interface_dyn_phys.F90 1615 2012-02-10 15:42:26Z emillour $
+! $Id: mod_interface_dyn_phys.F90 2351 2015-08-25 15:14:59Z emillour $
 !
 MODULE mod_interface_dyn_phys
@@ -7 +7 @@
   
   
-#ifdef CPP_PHYS
-! Interface with parallel physics,
 CONTAINS
   
+#ifdef CPP_PARA
+! Interface with parallel physics,
   SUBROUTINE Init_interface_dyn_phys
-    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi, is_north_pole, is_south_pole, &
-                                      ii_begin, jj_begin, ii_end, jj_end
+    USE mod_phys_lmdz_mpi_data
     IMPLICIT NONE
     include 'dimensions.h'    
@@ -55 +54 @@
   
   END SUBROUTINE Init_interface_dyn_phys 
+#else
+  SUBROUTINE Init_interface_dyn_phys
+  ! dummy routine for seq case
+  END SUBROUTINE Init_interface_dyn_phys 
 #endif
-! of #ifdef CPP_PHYS
+! of #ifdef CPP_PARA
 END MODULE mod_interface_dyn_phys