Changeset 3511

Timestamp:

May 20, 2019, 11:25:15 AM (5 years ago)

Author:

idelkadi

Message:

Implementation de la version cospv2 dans LMDZ (suite)

Location:

LMDZ6/trunk/libf/phylmd

Files:

• cospv2/lmdz_cosp_interface.F90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cospv2/lmdz_cosp_interface.F90

@@ -16 +16 @@
 !  subroutine phys_cosp2( itap,dtime,freq_cosp, &
   subroutine lmdz_cosp_interface(itap, dtime, freq_cosp, ok_mensuelCOSP, ok_journeCOSP,   &
-                                 ok_hfCOSP, ecrit_mth, ecrit_day, ecrit_hf, ok_all_xml,   &
-                                 missing_val, Nptslmdz, Nlevlmdz, lon, lat, presnivs,     &
-                                 overlaplmdz, sunlit, ref_liq, ref_ice, fracTerLic,       &
-                                 u_wind, v_wind, phis, phi, ph, p, skt, t, sh, rh,        &
-                                 tca, cca, mr_lsliq, mr_lsice, fl_lsrainI, fl_lssnowI,    &
-                                 fl_ccrainI, fl_ccsnowI, mr_ozone, dtau_s, dem_s)
+                         ok_hfCOSP, ecrit_mth, ecrit_day, ecrit_hf, ok_all_xml,   &
+                         missing_val, Nptslmdz, Nlevlmdz, lon, lat, presnivs,     &
+                         overlaplmdz, sunlit, ref_liq, ref_ice, fracTerLic,       &
+                         u_wind, v_wind, phis, phi, ph, p, skt, t, sh, rh,        &
+                         tca, cca, mr_lsliq, mr_lsice, fl_lsrainI, fl_lssnowI,    &
+                         fl_ccrainI, fl_ccsnowI, mr_ozone, dtau_s, dem_s)
 
 !--------------  Inputs  ---------------
@@ -74 +74 @@
 
 !!! Modules faisant partie du code source de COSPv2
-  use cosp_kinds,                         only: wp                         
+  use cosp_kinds,                 only: wp                         
   use MOD_COSP_CONFIG,                    only: N_HYDRO,RTTOV_MAX_CHANNELS, &
                                                 niv_sorties, vgrid_z_in

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1113 +1113 @@
     ! Declarations pour Simulateur COSP
     !============================================================
-    real :: mr_ozone(klon,klev)
+    real :: mr_ozone(klon,klev), phicosp(klon,klev)
 
     !IM stations CFMIP