Ignore:
Timestamp:
Jun 5, 2024, 12:30:04 PM (7 months ago)
Author:
emillour
Message:

Generic PCM:
OpenMP fix in newsedim, add a missing THREADPRIVATE for "molrad" variable.
While at it make sedim and callsedim modules.
EM

Location:
trunk/LMDZ.GENERIC/libf/phystd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/libf/phystd/callsedim.F

    r2972 r3360  
     1      MODULE callsedim_mod
     2     
     3      IMPLICIT NONE
     4     
     5      CONTAINS
     6     
    17      SUBROUTINE callsedim(ngrid,nlay, ptimestep,
    28     &                pplev,zlev, pt, pdt,
     
    915      use comcstfi_mod, only: g
    1016      use callkeys_mod, only : water
     17      use newsedim_mod, only: newsedim
    1118
    1219      IMPLICIT NONE
     
    154161       endif ! of no gases no co2_ice
    155162      enddo ! of do iq=1,nq
    156       return
    157       end
     163
     164      END SUBROUTINE callsedim
     165     
     166      END MODULE callsedim_mod
  • trunk/LMDZ.GENERIC/libf/phystd/newsedim.F

    r2670 r3360  
     1      MODULE newsedim_mod
     2     
     3      IMPLICIT NONE
     4     
     5      CONTAINS
     6
    17      SUBROUTINE newsedim(ngrid,nlay,naersize,ptimestep,
    28     &  pplev,masse,epaisseur,pt,rd,rho,pqi,wq,iq)
     
    410      use ioipsl_getin_p_mod, only: getin_p
    511      use comcstfi_mod, only: r, g
    6       use gases_h
     12      use gases_h, only: gfrac, gnom, ngasmx
     13      use gases_h, only: igas_CH4, igas_CO2, igas_H2, igas_H2O
     14      use gases_h, only: igas_He, igas_N2
    715      use tracer_h, only : igcm_h2o_ice
    816      use watercommon_h, only: T_h2O_ice_liq,T_h2O_ice_clouds     
     
    6977c     Effective gas molecular radius (m)
    7078      real,save :: molrad
     79!$OMP THREADPRIVATE(molrad)
    7180
    7281c     local and saved variable
     
    282291c    &                wq(1,6),wq(1,7),pqi(1,6)
    283292
    284       END
     293      END SUBROUTINE newsedim
     294     
     295      END MODULE newsedim_mod
  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r3352 r3360  
    8585      use turbdiff_mod, only: turbdiff
    8686      use turb_mod, only : q2,sensibFlux,turb_resolved
     87      use callsedim_mod, only: callsedim
    8788      use mass_redistribution_mod, only: mass_redistribution
    8889      use condensation_generic_mod, only: condensation_generic
Note: See TracChangeset for help on using the changeset viewer.