Changeset 6105 for LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

Timestamp:

Mar 13, 2026, 11:02:03 PM (4 weeks ago)

Author:

fhourdin

Message:

Supression d'arguments dans conf_phys_m

File:

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

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -6 +6 @@
 MODULE conf_phys_m
 
-  USE clesphys_mod_h
+    USE clesphys_mod_h
     IMPLICIT NONE
 
+    LOGICAL, SAVE, PROTECTED :: ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES
+!$OMP THREADPRIVATE(ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES)
+
 CONTAINS
 
-  SUBROUTINE conf_phys(ok_journe, ok_mensuel, ok_instan, ok_hf, &
-       ok_LES,&
-       callstats,&
-       solarlong0, &
+  SUBROUTINE conf_phys( solarlong0, &
        fact_cldcon,facttemps,ok_newmicro,iflag_radia,&
        iflag_cld_th, &
@@ -71 +71 @@
 
     ! Sortie:
+
     LOGICAL              :: ok_newmicro
     INTEGER              :: iflag_radia
     LOGICAL              :: ok_journe, ok_mensuel, ok_instan, ok_hf
     LOGICAL              :: ok_LES
-    LOGICAL              :: callstats
     LOGICAL              :: ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan
     LOGICAL              :: aerosol_couple, chemistry_couple
@@ -90 +90 @@
 
 
+
     REAL                :: ratio_z0hz0m_land, ratio_z0hz0m_ocean, ratio_z0hz0m_landice, ratio_z0hz0m_seaice
 
@@ -1125 +1126 @@
     CALL getin_p('OK_LES', ok_LES)                                  
 
-    !              stats                                                  
-    !                                                                   
-    callstats = .FALSE.                                              
-    CALL getin_p('callstats', callstats)                                  
-    !
     !              par defaut 1., i.e. 1 jour
-    !
     !
     adjust_tropopause = .FALSE.