Changeset 5282 for LMDZ6/trunk/libf/phylmd/radiation_AR4.f90
- Timestamp:
- Oct 28, 2024, 1:11:48 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/radiation_AR4.f90
r5274 r5282 5 5 tauae, pizae, cgae, ptaua, pomegaa, ptopswad, psolswad, ptopswai, & 6 6 psolswai, ok_ade, ok_aie) 7 USE clesphys_mod_h 7 8 USE dimphy 8 9 USE print_control_mod, ONLY: lunout … … 60 61 ! IM ctes ds clesphys.h REAL(KIND=8) RCO2 ! concentration CO2 (IPCC: 61 62 ! 353.E-06*44.011/28.97) 62 include "clesphys.h"63 63 64 64 REAL (KIND=8) ppsol(kdlon) ! SURFACE PRESSURE (PA) … … 322 322 SUBROUTINE swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, & 323 323 paki, pcld, pclear, pdsig, pfact, prmu, psec, pud) 324 USE clesphys_mod_h 324 325 USE dimphy 325 326 USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, & … … 346 347 REAL (KIND=8) psct 347 348 ! IM ctes ds clesphys.h REAL(KIND=8) RCO2 348 include "clesphys.h"349 349 REAL (KIND=8) pcldsw(kdlon, kflev) 350 350 REAL (KIND=8) ppmb(kdlon, kflev+1) … … 1547 1547 ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, & 1548 1548 ptra2) 1549 USE clesphys_mod_h 1549 1550 USE dimphy 1550 1551 IMPLICIT NONE … … 2201 2202 ! REAL(KIND=8) RCFC12 ! CFC12 CONCENTRATION (IPCC: 484.E-12* 2202 2203 ! 120.9140/28.97) 2203 include "clesphys.h"2204 2204 REAL (KIND=8) pcldld(kdlon, kflev) ! DOWNWARD EFFECTIVE CLOUD COVER 2205 2205 REAL (KIND=8) pcldlu(kdlon, kflev) ! UPWARD EFFECTIVE CLOUD COVER … … 2345 2345 ! IM ctes ds clesphys.h SUBROUTINE LWU(RCO2, RCH4, RN2O, RCFC11, RCFC12, 2346 2346 SUBROUTINE lwu_lmdar4(paer, pdp, ppmb, ppsol, poz, ptave, pview, pwv, pabcu) 2347 USE clesphys_mod_h 2347 2348 USE dimphy 2348 2349 USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct … … 2400 2401 ! REAL(KIND=8) RCO2 2401 2402 ! REAL(KIND=8) RCH4, RN2O, RCFC11, RCFC12 2402 include "clesphys.h"2403 2403 REAL (KIND=8) paer(kdlon, kflev, 5) 2404 2404 REAL (KIND=8) pdp(kdlon, kflev)
Note: See TracChangeset
for help on using the changeset viewer.