Changeset 6126 for LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Mar 24, 2026, 5:45:21 PM (12 days ago)

Author:

idelkadi

Message:

Cleaning up the LMDZ physical model (physiq_mod.F90): reducing the number of arguments in calls to output routines

File:

• LMDZ6/trunk/libf/phylmd/phys_output_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

@@ -31 +31 @@
 
   SUBROUTINE phys_output_open(rlon,rlat,pim,tabij,ipt,jpt,plon,plat, &
-       jjmp1,nlevSTD,clevSTD,rlevSTD, dtime, ok_veget, &
-       type_ocean, iflag_pbl,iflag_pbl_split,ok_mensuel,ok_journe, &
-       ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, read_climoz, &
-       phys_out_filestations, &
-       aerosol_couple, flag_aerosol_strat, &
-       pdtphys, paprs, pphis, pplay, lmax_th, ptconv, ptconvth, ivap, &
+       jjmp1,nlevSTD,clevSTD,rlevSTD, dtime, read_climoz, &
+       phys_out_filestations, pdtphys, paprs, pphis, &
+       pplay, lmax_th, ptconv, ptconvth, ivap, &
        d_u, d_t, qx, d_qx, zmasse, ok_sync)   
 
@@ -53 +50 @@
     USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt, presinter
     USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref
-
     USE AERO_MOD, ONLY : nbands_lw_rrtm !FC
-
     ! ug Pour les sorties XIOS
     USE wxios_mod
@@ -65 +60 @@
 #endif
 #endif
-
     USE clesphys_mod_h
     USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
     USE yomcst_mod_h
+    USE surface_data,     ONLY : type_ocean, ok_veget
+    USE conf_phys_m, ONLY : ok_mensuel,ok_journe, &
+                            ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, &
+                            aerosol_couple, flag_aerosol_strat
+    USE compbl_mod_h, ONLY : iflag_pbl,iflag_pbl_split
 
     IMPLICIT NONE
@@ -96 +95 @@
     INTEGER                               :: jjmp1
     INTEGER                               :: nlevSTD, radpas
-    LOGICAL                               :: ok_mensuel, ok_journe, ok_hf, ok_instan
-    LOGICAL                               :: ok_LES,ok_ade,ok_aie
-    INTEGER                               :: flag_aerosol_strat
-    LOGICAL                               :: aerosol_couple
     INTEGER, INTENT(IN)::  read_climoz ! read ozone climatology
     !     Allowed values are 0, 1 and 2
@@ -114 +109 @@
     INTEGER                               :: nsrf, k, iq, iff, i, j, ilev, itr, itrb, ixt, iiso, izone
     INTEGER                               :: naero
-    LOGICAL                               :: ok_veget
-    INTEGER                               :: iflag_pbl
-    INTEGER                               :: iflag_pbl_split
     CHARACTER(LEN=4)                      :: bb2
     CHARACTER(LEN=2)                      :: bb3
-    CHARACTER(LEN=6)                      :: type_ocean
     INTEGER, DIMENSION(nbp_lon*jjmp1)         ::  ndex2d
     INTEGER, DIMENSION(nbp_lon*jjmp1*klev)    :: ndex3d