Changeset 2899


Ignore:
Timestamp:
Feb 21, 2023, 3:26:12 PM (23 months ago)
Author:
emillour
Message:

Generic PCM:
More code tidying: turn aeropacity, aeroptproperties, gfluxi, gfluxv,
sfluxi and sfluxv into modules.
EM

Location:
trunk/LMDZ.GENERIC
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r2898 r2899  
    17821782Some cleanup in aerosol_mod.F90 : integrate "iniaerosol" in the module.
    17831783Also adapted kcm1d to follow up on recent code updates.
     1784
     1785== 21/02/2023 == EM
     1786More code tidying: turn aeropacity, aeroptproperties, gfluxi, gfluxv,
     1787sfluxi and sfluxv into modules.

  • trunk/LMDZ.GENERIC/libf/phystd/aeropacity.F90

    r2831 r2899  
     1module aeropacity_mod
     2
     3implicit none
     4
     5contains
     6
    17      Subroutine aeropacity(ngrid,nlayer,nq,pplay,pplev,pt, pq, &
    28         aerosol,reffrad,nueffrad, QREFvis3d,QREFir3d,tau_col, &
    … …  
    10131019    end subroutine aeropacity
    10141020     
     1021end module aeropacity_mod

  • trunk/LMDZ.GENERIC/libf/phystd/aeroptproperties.F90

    r2033 r2899  
     1module aeroptproperties_mod
     2
     3implicit none
     4
     5contains
     6
    17      SUBROUTINE aeroptproperties(ngrid,nlayer,reffrad,nueffrad,   &
    28                                  QVISsQREF3d,omegaVIS3d,gVIS3d,   &
    … …  
    753759
    754760
    755 
    756      
     761end module aeroptproperties_mod

  • trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

    r2831 r2899  
    3232                              iaero_venus1,iaero_venus2,iaero_venus2p,    &
    3333                              iaero_venus3,iaero_venusUV
    34       use tracer_h
     34      use aeropacity_mod, only: aeropacity
     35      use aeroptproperties_mod, only: aeroptproperties
     36      use tracer_h, only: igcm_h2o_ice, igcm_h2o_vap, igcm_co2_ice
     37      use tracer_h, only: constants_epsi_generic
    3538      use comcstfi_mod, only: pi, mugaz, cpp
    3639      use callkeys_mod, only: varactive,diurnal,tracer,water,varfixed,satval, &
    … …  
    4043      use optcv_mod, only: optcv
    4144      use optci_mod, only: optci
     45      use sfluxi_mod, only: sfluxi
     46      use sfluxv_mod, only: sfluxv
    4247      use recombin_corrk_mod, only: corrk_recombin, call_recombin
    4348      use generic_cloud_common_h, only: Psat_generic, epsi_generic

  • trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F

    r2283 r2899  
     1      module gfluxi_mod
     2     
     3      implicit none
     4     
     5      contains
     6     
    17      SUBROUTINE GFLUXI(NLL,TLEV,NW,DW,DTAU,TAUCUM,W0,COSBAR,UBARI,
    28     *                  RSF,BTOP,BSURF,FTOPUP,FMIDP,FMIDM)
    39     
    4       use radinc_h
     10      use radinc_h, only: L_TAUMAX, NTfac, NTstart
     11      use radinc_h, only: L_NLAYRAD, L_LEVELS
    512      use radcommon_h, only: planckir
    613      use comcstfi_mod, only: pi
    … …  
    235242     
    236243     
    237       RETURN
    238       END
     244      END SUBROUTINE GFLUXI
     245
     246      end module gfluxi_mod

  • trunk/LMDZ.GENERIC/libf/phystd/gfluxv.F

    r1991 r2899  
     1      module gfluxv_mod
     2     
     3      implicit none
     4     
     5      contains
     6     
    17      SUBROUTINE GFLUXV(DTDEL,TDEL,TAUCUMIN,WDEL,CDEL,UBAR0,F0PI,RSF,
    28     *                  BTOP,BSURF,FMIDP,FMIDM,DIFFV,FLUXUP,FLUXDN)
    … …  
    3844!======================================================================!
    3945
    40       use radinc_h
     46      use radinc_h, only: L_TAUMAX, L_NLAYRAD, L_NLEVRAD, L_LEVELS
    4147
    4248      implicit none
    … …  
    329335
    330336
    331       RETURN
    332       END
     337      END SUBROUTINE GFLUXV
     338
     339      end module gfluxv_mod

  • trunk/LMDZ.GENERIC/libf/phystd/sfluxi.F

    r2283 r2899  
     1      module sfluxi_mod
     2     
     3      implicit none
     4     
     5      contains
     6     
    17      SUBROUTINE SFLUXI(PLEV,TLEV,DTAUI,TAUCUMI,UBARI,RSFI,WNOI,DWNI,
    28     *                  COSBI,WBARI,NFLUXTOPI,NFLUXTOPI_nu,
    … …  
    410     *                  FZEROI,TAUGSURF)
    511     
    6       use radinc_h
     12      use radinc_h, only: NTfac, NTstart, L_LEVELS, L_NSPECTI, L_NGAUSS
     13      use radinc_h, only: L_NLAYRAD, L_NLEVRAD
    714      use radcommon_h, only: planckir, tlimit,sigma, gweight
    815      use comcstfi_mod, only: pi
     16      use gfluxi_mod, only: gfluxi
    917     
    1018      implicit none
    … …  
    192200! *** END OF MAJOR SPECTRAL INTERVAL LOOP IN THE INFRARED****
    193201     
    194       RETURN
    195       END
     202      END SUBROUTINE SFLUXI
     203
     204      end module sfluxi_mod

  • trunk/LMDZ.GENERIC/libf/phystd/sfluxv.F

    r1781 r2899  
     1      module sfluxv_mod
     2
     3      implicit none
     4     
     5      contains
     6     
    17      SUBROUTINE SFLUXV(DTAUV,TAUV,TAUCUMV,RSFV,DWNV,WBARV,COSBV,
    28     *                  UBAR0,STEL,NFLUXTOPV,FLUXTOPVDN,
    … …  
    410     *                  FMNETV,FLUXUPV,FLUXDNV,FZEROV,taugsurf)
    511
    6       use radinc_h
     12      use radinc_h, only: L_TAUMAX, L_LEVELS, L_NSPECTV, L_NGAUSS
     13      use radinc_h, only: L_NLAYRAD, L_NLEVRAD
    714      use radcommon_h, only: tlimit, gweight
     15      use gfluxv_mod, only: gfluxv
    816
    917      implicit none
    … …  
    185193
    186194
    187       RETURN
    188       END
     195      END SUBROUTINE SFLUXV
     196
     197      end module sfluxv_mod
     198     
Note: See TracChangeset for help on using the changeset viewer.