Changeset 6125 for LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.f90

Timestamp:

Mar 24, 2026, 10:56:41 AM (3 weeks ago)

Author:

idelkadi

Message:

Cleaning up the LMDZ physical model (physiq_mod.F90): reducing the number of arguments passed to Cosp simulators

File:

• LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.f90

@@ -5 +5 @@
 !Idelkadi Abderrahmane Nov 2015 version v1.4.0
 
-  subroutine phys_cosp( itap,dtime,freq_cosp, &
-                        ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                        ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+  subroutine phys_cosp( itap,dtime,missing_val, &
                         Nptslmdz,Nlevlmdz,lon,lat, presnivs,overlaplmdz,sunlit, &
                         ref_liq,ref_ice,fracTerLic,u_wind,v_wind,phis,phi,ph,p,skt,t, &
@@ -79 +77 @@
   USE mod_phys_lmdz_para
   USE mod_grid_phy_lmdz
-  use ioipsl
-  use iophy
-  use cosp_output_mod
-  use cosp_output_write_mod
+  USE ioipsl
+  USE iophy
+  USE cosp_output_mod
+  USE cosp_output_write_mod
 !  use MOD_COSP_Modis_Simulator, only : cosp_modis 
   USE lmdz_xios, ONLY: xios_field_is_active, using_xios
-  use cosp_read_otputkeys
+  USE cosp_read_otputkeys
+  USE conf_phys_m, ONLY : freq_cosp, ecrit_day,ecrit_hf,ecrit_mth, &
+                          ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml
 
   IMPLICIT NONE
@@ -132 +132 @@
 ! Declaration necessaires pour les sorties IOIPSL
   integer :: ii
-  real    :: ecrit_day,ecrit_hf,ecrit_mth, missing_val
-  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml
+  real    :: missing_val
 
   logical, save :: debut_cosp=.true.
@@ -150 +149 @@
   real,dimension(Nlevlmdz)        :: presnivs
   integer                         :: itap,k,ip
-  real                            :: dtime,freq_cosp
+  real                            :: dtime
   real,dimension(2)               :: time_bnds