Changeset 2342 for LMDZ5/trunk/libf/phy_common

Timestamp:

Aug 19, 2015, 3:21:38 PM (9 years ago)

Author:

Ehouarn Millour

Message:

Follow-up for a cleaner separation between dynamics and physics:

• "write_field" is called from physics and dynamics but has no dependence on either so it should be in "misc"
• "write_field_phy" is common to all physics, so it goes in "phy_common"
• "init_ssrf_m" and "limit_netcdf" are only used by ce0l, so these should be in "dynlonlat_phylonlat/phylmd"
• "q_sat" is called from physics and dynamics but has no dependence on either so it should be in "misc"

EM

File:

• LMDZ5/trunk/libf/phy_common/write_field_phy.F90 (moved) (moved from LMDZ5/trunk/libf/phylmd/write_field_phy.F90) (1 diff)

LMDZ5/trunk/libf/phy_common/write_field_phy.F90

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 MODULE write_field_phy
 
+  ! Dump a field on the global (nbp_lon by nbp_lat) physics grid
+  
   CONTAINS 
  
     SUBROUTINE WriteField_phy(name,Field,ll)
-    USE dimphy
-    USE mod_phys_lmdz_para
-    USE mod_grid_phy_lmdz
-    USE Write_Field
+    USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root, &
+                                  Gather
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
+                                 Grid1Dto2D_glo
+    USE Write_Field, ONLY: WriteField
     
     IMPLICIT NONE
-    include 'dimensions.h'
-    include 'paramet.h'
 
-    character(len=*)   :: name
-    INTEGER :: ll
-    real, dimension(klon_omp,ll) :: Field
-    real,save,allocatable :: Field_tmp(:,:)
+    CHARACTER(len=*),INTENT(IN) :: name
+    INTEGER,INTENT(IN) :: ll
+    REAL,INTENT(IN) :: Field(klon_omp,ll)
+
     real, dimension(klon_glo,ll):: New_Field
-    real, dimension(iim,jjp1,ll):: Field_2d
+    real, dimension(nbp_lon,nbp_lat,ll):: Field_2d
 
     CALL Gather(Field,New_Field)