Changeset 2899 for trunk/LMDZ.GENERIC
- Timestamp:
- Feb 21, 2023, 3:26:12 PM (22 months ago)
- Location:
- trunk/LMDZ.GENERIC
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/README
r2898 r2899 1782 1782 Some cleanup in aerosol_mod.F90 : integrate "iniaerosol" in the module. 1783 1783 Also adapted kcm1d to follow up on recent code updates. 1784 1785 == 21/02/2023 == EM 1786 More code tidying: turn aeropacity, aeroptproperties, gfluxi, gfluxv, 1787 sfluxi and sfluxv into modules. -
trunk/LMDZ.GENERIC/libf/phystd/aeropacity.F90
r2831 r2899 1 module aeropacity_mod 2 3 implicit none 4 5 contains 6 1 7 Subroutine aeropacity(ngrid,nlayer,nq,pplay,pplev,pt, pq, & 2 8 aerosol,reffrad,nueffrad, QREFvis3d,QREFir3d,tau_col, & … … 1013 1019 end subroutine aeropacity 1014 1020 1021 end module aeropacity_mod -
trunk/LMDZ.GENERIC/libf/phystd/aeroptproperties.F90
r2033 r2899 1 module aeroptproperties_mod 2 3 implicit none 4 5 contains 6 1 7 SUBROUTINE aeroptproperties(ngrid,nlayer,reffrad,nueffrad, & 2 8 QVISsQREF3d,omegaVIS3d,gVIS3d, & … … 753 759 754 760 755 756 761 end module aeroptproperties_mod -
trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90
r2831 r2899 32 32 iaero_venus1,iaero_venus2,iaero_venus2p, & 33 33 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 35 38 use comcstfi_mod, only: pi, mugaz, cpp 36 39 use callkeys_mod, only: varactive,diurnal,tracer,water,varfixed,satval, & … … 40 43 use optcv_mod, only: optcv 41 44 use optci_mod, only: optci 45 use sfluxi_mod, only: sfluxi 46 use sfluxv_mod, only: sfluxv 42 47 use recombin_corrk_mod, only: corrk_recombin, call_recombin 43 48 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 1 7 SUBROUTINE GFLUXI(NLL,TLEV,NW,DW,DTAU,TAUCUM,W0,COSBAR,UBARI, 2 8 * RSF,BTOP,BSURF,FTOPUP,FMIDP,FMIDM) 3 9 4 use radinc_h 10 use radinc_h, only: L_TAUMAX, NTfac, NTstart 11 use radinc_h, only: L_NLAYRAD, L_LEVELS 5 12 use radcommon_h, only: planckir 6 13 use comcstfi_mod, only: pi … … 235 242 236 243 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 1 7 SUBROUTINE GFLUXV(DTDEL,TDEL,TAUCUMIN,WDEL,CDEL,UBAR0,F0PI,RSF, 2 8 * BTOP,BSURF,FMIDP,FMIDM,DIFFV,FLUXUP,FLUXDN) … … 38 44 !======================================================================! 39 45 40 use radinc_h 46 use radinc_h, only: L_TAUMAX, L_NLAYRAD, L_NLEVRAD, L_LEVELS 41 47 42 48 implicit none … … 329 335 330 336 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 1 7 SUBROUTINE SFLUXI(PLEV,TLEV,DTAUI,TAUCUMI,UBARI,RSFI,WNOI,DWNI, 2 8 * COSBI,WBARI,NFLUXTOPI,NFLUXTOPI_nu, … … 4 10 * FZEROI,TAUGSURF) 5 11 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 7 14 use radcommon_h, only: planckir, tlimit,sigma, gweight 8 15 use comcstfi_mod, only: pi 16 use gfluxi_mod, only: gfluxi 9 17 10 18 implicit none … … 192 200 ! *** END OF MAJOR SPECTRAL INTERVAL LOOP IN THE INFRARED**** 193 201 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 1 7 SUBROUTINE SFLUXV(DTAUV,TAUV,TAUCUMV,RSFV,DWNV,WBARV,COSBV, 2 8 * UBAR0,STEL,NFLUXTOPV,FLUXTOPVDN, … … 4 10 * FMNETV,FLUXUPV,FLUXDNV,FZEROV,taugsurf) 5 11 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 7 14 use radcommon_h, only: tlimit, gweight 15 use gfluxv_mod, only: gfluxv 8 16 9 17 implicit none … … 185 193 186 194 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.