Changeset 6187


Ignore:
Timestamp:
Apr 23, 2026, 5:20:39 PM (11 days ago)
Author:
lguez
Message:

Remove argument read_climoz of phys_state_var_init

Instead, in phys_state_var_init, use read_climoz from module
conf_phys_m. Motivation: removing variables from physiq. Note that
this changes results from physiqex: physiqex should call conf_phys
so read_climoz can be set to 1.

Location:
LMDZ6/trunk/libf
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r6124 r6187  
    137137!*******************************************************************************
    138138  CALL conf_phys
    139   CALL phys_state_var_init(read_climoz)
     139  CALL phys_state_var_init
    140140
    141141!--- Initial atmospheric CO2 conc. from .def file

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

    r6085 r6187  
    223223      integer :: nsrf
    224224      integer jcode
    225       INTEGER read_climoz
    226225      integer :: it_end ! iteration number of the last call
    227226      integer ecrit_slab_oc !1=ecrit,-1=lit,0=no file
    … …  
    413412      d_q_nudge(:,:) = 0.
    414413
    415 !   No ozone climatology need be read in this pre-initialization
    416 !          (phys_state_var_init is called again in physiq)
    417       read_climoz = 0
    418414      nsw=6
    419415
    420       call phys_state_var_init(read_climoz)
     416      call phys_state_var_init
    421417
    422418      if (ngrid.ne.klon) then

  • LMDZ6/trunk/libf/phylmd/phyaqua_mod.f90

    r6033 r6187  
    8888    REAL phy_flic(nlon, year_len)
    8989
    90     INTEGER, SAVE :: read_climoz = 0 ! read ozone climatology
    91 !$OMP THREADPRIVATE(read_climoz)
    92 
    9390    ! -------------------------------------------------------------------------
    9491    ! declaration pour l'appel a phyredem
    … …  
    148145      CALL abort_physic(modname,abort_message,1)
    149146    END IF
    150     CALL phys_state_var_init(read_climoz)
    151 
    152 
    153     read_climoz = 0
     147    CALL phys_state_var_init
     148
     149
    154150    day0 = 217.
    155151    day = day0

  • LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

    r6059 r6187  
    598598
    599599!======================================================================
    600 SUBROUTINE phys_state_var_init(read_climoz)
     600SUBROUTINE phys_state_var_init
    601601USE dimphy
    602602USE aero_mod
    … …  
    608608USE indice_sol_mod
    609609USE config_ocean_skin_m, ONLY: activate_ocean_skin
     610USE conf_phys_m , ONLY : read_climoz
    610611USE surface_data, ONLY: type_ocean
    611612IMPLICIT NONE
    612 
    613 INTEGER, INTENT(IN)::  read_climoz
    614 ! read ozone climatology
    615 ! Allowed values are 0, 1 and 2
    616 ! 0: do not read an ozone climatology
    617 ! 1: read a single ozone climatology that will be used day and night
    618 ! 2: read two ozone climatologies, the average day and night
    619 ! climatology and the daylight climatology
    620 
    621613
    622614      PRINT*, 'is_initialized', is_initialized

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r6183 r6187  
    12581258       CALL init_etat0_limit_unstruct
    12591259       IF (.NOT. create_etat0_limit) CALL init_limit_read(days_elapsed)
    1260        CALL phys_state_var_init(read_climoz)
     1260       CALL phys_state_var_init
    12611261       CALL phys_output_var_init
    12621262       IF (read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) &

  • LMDZ6/trunk/libf/phylmd/physiqex_mod.F90

    r5198 r6187  
    8181
    8282! load initial conditions for physics (including the grid)
    83   call phys_state_var_init(1) ! some initializations, required before calling phyetat0
     83  call phys_state_var_init ! some initializations, required before calling phyetat0
    8484  call phyetat0("startphy.nc", clesphy0, tabcntr0)
    8585

  • LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90

    r5927 r6187  
    103103    REAL phy_flic(nlon, year_len)
    104104
    105     INTEGER, SAVE :: read_climoz = 0 ! read ozone climatology
    106 !$OMP THREADPRIVATE(read_climoz)
    107 
    108105    ! -------------------------------------------------------------------------
    109106    ! declaration pour l'appel a phyredem
    … …  
    163160      CALL abort_physic(modname,abort_message,1)
    164161    END IF
    165     CALL phys_state_var_init(read_climoz)
    166 
    167 
    168     read_climoz = 0
     162    CALL phys_state_var_init
     163
     164
    169165    day0 = 217.
    170166    day = day0

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r6183 r6187  
    13391339       CALL init_etat0_limit_unstruct
    13401340       IF (.NOT. create_etat0_limit) CALL init_limit_read(days_elapsed)
    1341        CALL phys_state_var_init(read_climoz)
     1341       CALL phys_state_var_init
    13421342       CALL phys_output_var_init
    13431343       IF (read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) &
Note: See TracChangeset for help on using the changeset viewer.