Changeset 2571 for LMDZ5/trunk/libf/phylmd/cosp

Timestamp:

Jun 14, 2016, 1:51:43 PM (8 years ago)

Author:

jghattas

Message:

Interface LMDZ/ORCHIDEE :

• copied previous default module surf_land_orchidee_mod.f90 into surf_land_orchidee_noz0h.f90. This interface can still be compiled if adding cpp key ORCHIDEE_NOZ0H
• modified default interface by adding z0h as output from ORCHIDEE.
• added comments in each module surf_land_orchidee_xxx of compatiblity with ORCHIDEE.
• all modules surf_land_orchidee_xxx now send back z0h and z0m to surf_land_mod. But note that z0m and zOh are different only in the new default version surf_land_orchidee_mod.f90. In the old interfaces, z0h is a copy of z0m.

cosp : some small changes to be able to compile with gfortran

Location:

LMDZ5/trunk/libf/phylmd/cosp

Files:

• cosp_constants.F90 (modified) (1 diff)
• cosp_output_mod.F90 (modified) (2 diffs)
• phys_cosp.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cosp/cosp_constants.F90

@@ -108 +108 @@
                    -31.5,-28.5,-25.5,-22.5,-19.5,-16.5,-13.5,-10.5, -7.5, -4.5, &
                     -1.5,  1.5,  4.5,  7.5, 10.5, 13.5, 16.5, 19.5, 22.5, 25.5/)
-    real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=(/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., &
+    real,parameter,dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS=reshape(source=&
+                    (/-273.15,-90.,-90.,-87.,-87.,-84.,-84.,-81.,-81.,-78., &
                    -78.,-75.,-75.,-72.,-72.,-69.,-69.,-66.,-66.,-63., &
                    -63.,-60.,-60.,-57.,-57.,-54.,-54.,-51.,-51.,-48., &

LMDZ5/trunk/libf/phylmd/cosp/cosp_output_mod.F90

@@ -228 +228 @@
   real,dimension(2,SR_BINS) :: sratio_bounds
   real,dimension(SR_BINS)   ::  sratio_ax
-  CHARACTER(LEN=20), DIMENSION(3)  :: chfreq = (/ '1day', '1d', '3h' /)            
+  CHARACTER(LEN=20), DIMENSION(3)  :: chfreq = (/ '1day', '1d  ', '3h  ' /)            
 
 !!! Variables d'entree
@@ -363 +363 @@
       CALL histvert(cosp_nidfiles(iff),"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol(iff))
 
-      CALL histvert(cosp_nidfiles(iff),"temp","temperature","C",LIDAR_NTEMP,LIDAR_PHASE_TEMP,nverttemp(iff))                                       
-      CALL histvert(cosp_nidfiles(iff),"cth16","altitude","m",MISR_N_CTH,MISR_CTH,nvertmisr(iff))                                                                                                  
+      CALL histvert(cosp_nidfiles(iff),"temp","temperature","C",LIDAR_NTEMP,LIDAR_PHASE_TEMP,nverttemp(iff))
+
+      CALL histvert(cosp_nidfiles(iff),"cth16","altitude","m",MISR_N_CTH,MISR_CTH,nvertmisr(iff))
+
 !      CALL histvert(cosp_nidfiles(iff),"dbze","equivalent_reflectivity_factor","dBZ",DBZE_BINS,dbze_ax,nvertbze(iff))
      

LMDZ5/trunk/libf/phylmd/cosp/phys_cosp.F90

@@ -73 +73 @@
 
 !! AI rajouter
-  #include "cosp_defs.h" 
+#include "cosp_defs.h" 
   USE MOD_COSP_CONSTANTS
   USE MOD_COSP_TYPES