/[lmdze]/trunk/Sources/phylmd/diagphy.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/diagphy.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC revision 72 by guez, Tue Jul 23 13:00:07 2013 UTC
# Line 20  contains Line 20  contains
20      USE suphec_m, ONLY: rcpd, rcpv, rcs, rcw, rlstt, rlvtt      USE suphec_m, ONLY: rcpd, rcpv, rcs, rcw, rlstt, rlvtt
21    
22      ! Arguments:      ! Arguments:
23    
24        ! Input variables
25        real airephy(klon)
26      ! airephy-------input-R- grid area      ! airephy-------input-R- grid area
27        CHARACTER(len=15) tit
28      ! tit---------input-A15- Comment to be added in PRINT (CHARACTER*15)      ! tit---------input-A15- Comment to be added in PRINT (CHARACTER*15)
29        INTEGER iprt
30      ! iprt--------input-I- PRINT level (<=0 : no PRINT)      ! iprt--------input-I- PRINT level (<=0 : no PRINT)
31        real tops(klon), sols(klon)
32      ! tops(klon)--input-R- SW rad. at TOA (W/m2), positive up.      ! tops(klon)--input-R- SW rad. at TOA (W/m2), positive up.
33      ! sols(klon)--input-R- Net SW flux above surface (W/m2), positive up      ! sols(klon)--input-R- Net SW flux above surface (W/m2), positive up
34      ! (i.e. -1 * flux absorbed by the surface)      ! (i.e. -1 * flux absorbed by the surface)
     ! soll(klon)--input-R- Net LW flux above surface (W/m2), positive up  
     ! (i.e. flux emited - flux absorbed by the surface)  
     ! ts(klon)----input-R- Surface temperature (K)  
     ! d_etp_tot---input-R- Heat flux equivalent to atmospheric enthalpy  
     ! change (W/m2)  
     ! d_qt_tot----input-R- Mass flux equivalent to atmospheric water mass  
     ! change (kg/m2/s)  
     ! d_ec_tot----input-R- Flux equivalent to atmospheric cinetic energy  
     ! change (W/m2)  
35    
36      ! fs_bound---output-R- Thermal flux at the atmosphere boundaries (W/m2)      real, intent(in):: soll(klon)
37      ! fq_bound---output-R- Water mass flux at the atmosphere boundaries (kg/m2/s)      ! net longwave flux above surface (W/m2), positive up (i. e. flux emited
38      ! Input variables      ! - flux absorbed by the surface)
39      real airephy(klon)  
     CHARACTER*15 tit  
     INTEGER iprt  
     real tops(klon), sols(klon), soll(klon)  
40      real, intent(in):: topl(klon) !LW rad. at TOA (W/m2), positive down      real, intent(in):: topl(klon) !LW rad. at TOA (W/m2), positive down
41      real sens(klon)      real sens(klon)
42      ! sens(klon)--input-R- Sensible Flux at surface (W/m2), positive down      ! sens(klon)--input-R- Sensible Flux at surface (W/m2), positive down
# Line 57  contains Line 51  contains
51      ! snow_fall(klon)      ! snow_fall(klon)
52      ! --input-R- Solid water mass flux (kg/m2/s), positive down      ! --input-R- Solid water mass flux (kg/m2/s), positive down
53      REAL ts(klon)      REAL ts(klon)
54        ! ts(klon)----input-R- Surface temperature (K)
55      REAL d_etp_tot, d_qt_tot, d_ec_tot      REAL d_etp_tot, d_qt_tot, d_ec_tot
56        ! d_etp_tot---input-R- Heat flux equivalent to atmospheric enthalpy
57        ! change (W/m2)
58        ! d_qt_tot----input-R- Mass flux equivalent to atmospheric water mass
59        ! change (kg/m2/s)
60        ! d_ec_tot----input-R- Flux equivalent to atmospheric cinetic energy
61        ! change (W/m2)
62    
63      ! Output variables      ! Output variables
64      REAL fs_bound, fq_bound      REAL fs_bound
65        ! fs_bound---output-R- Thermal flux at the atmosphere boundaries (W/m2)
66        real fq_bound
67        ! fq_bound---output-R- Water mass flux at the atmosphere
68        ! boundaries (kg/m2/s)
69    
70        ! Local variables:
71    
     ! Local variables  
72      real stops, stopl, ssols, ssoll      real stops, stopl, ssols, ssoll
73      real ssens, sfront, slat      real ssens, sfront, slat
74      real airetot, zcpvap, zcwat, zcice      real airetot, zcpvap, zcwat, zcice
Legend:
Removed from v.62  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.21