Changeset 4627 for LMDZ6


Ignore:
Timestamp:
Jul 13, 2023, 3:31:36 PM (17 months ago)
Author:
acozic
Message:

add a test on aerosol_couple before reading aerosol files in init_aero_fromfile. If we are using inca aerosols, we don't need to read these files

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r4626 r4627  
    17291729
    17301730!       CALL create_climoz(read_climoz)
    1731       IF (.NOT. create_etat0_limit) CALL init_aero_fromfile(flag_aerosol)  !! initialise aero from file for XIOS interpolation (unstructured_grid)
     1731      IF (.NOT. create_etat0_limit) CALL init_aero_fromfile(flag_aerosol, aerosol_couple)  !! initialise aero from file for XIOS interpolation (unstructured_grid)
    17321732      IF (.NOT. create_etat0_limit) CALL init_readaerosolstrato(flag_aerosol_strat)  !! initialise aero strato from file for XIOS interpolation (unstructured_grid)
    17331733

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

    r4619 r4627  
    173173
    174174
    175 SUBROUTINE init_aero_fromfile(flag_aerosol)
     175SUBROUTINE init_aero_fromfile(flag_aerosol, aerosol_couple)
    176176  USE netcdf
    177177  USE mod_phys_lmdz_para
    … …  
    179179  USE lmdz_xios
    180180  IMPLICIT NONE
     181
    181182  INTEGER, INTENT(IN) :: flag_aerosol
     183  LOGICAL, INTENT(IN) :: aerosol_couple
     184 
    182185  REAL,ALLOCATABLE :: lat_src(:)
    183186  REAL,ALLOCATABLE :: lon_src(:)
    … …  
    189192
    190193  IF (using_xios) THEN
    191     IF (flag_aerosol>0 .AND. grid_type==unstructured) THEN
     194    IF (flag_aerosol>0 .AND. grid_type==unstructured .AND. (.NOT. aerosol_couple) ) THEN
    192195 
    193196      IF (is_omp_root) THEN
Note: See TracChangeset for help on using the changeset viewer.