- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/surf_seaice_mod.F90
r3102 r3851 37 37 INCLUDE "dimsoil.h" 38 38 INCLUDE "clesphys.h" 39 40 INCLUDE "YOMCST.h" 41 ! for rd and retv 39 42 40 43 ! Input arguments … … 87 90 REAL, DIMENSION(klon) :: alb1_new,alb2_new 88 91 !albedo SB <<< 89 ! 92 93 real rhoa(knon) ! density of moist air (kg / m3) 94 90 95 ! End definitions 91 96 !**************************************************************************************** … … 98 103 radsol(:) = 0.0 99 104 radsol(1:knon) = swnet(1:knon) + lwnet(1:knon) 105 106 rhoa = PS(:KNON) / (Rd * temp_air(:knon) * (1. + retv * spechum(:knon))) 100 107 101 108 !**************************************************************************************** … … 116 123 radsol, snow, qsurf, & 117 124 alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, & 118 tsurf_new, dflux_s, dflux_l )125 tsurf_new, dflux_s, dflux_l, rhoa) 119 126 120 127 ELSE IF (type_ocean == 'slab'.AND.version_ocean=='sicINT') THEN … … 138 145 radsol, snow, qsol, agesno, tsoil, & 139 146 qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, & 140 tsurf_new, dflux_s, dflux_l )147 tsurf_new, dflux_s, dflux_l, rhoa) 141 148 142 149 END IF
Note: See TracChangeset
for help on using the changeset viewer.