Changeset 2254 for LMDZ5/trunk/libf/phylmd/ocean_cpl_mod.F90
- Timestamp:
- Apr 3, 2015, 12:16:36 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/ocean_cpl_mod.F90
r2240 r2254 46 46 windsp, fder_old, & 47 47 itime, dtime, knon, knindex, & 48 p1lay, cdragh, cdrag m, precip_rain, precip_snow, temp_air, spechum, &48 p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, temp_air, spechum, & 49 49 AcoefH, AcoefQ, BcoefH, BcoefQ, & 50 50 AcoefU, AcoefV, BcoefU, BcoefV, & … … 65 65 66 66 INCLUDE "YOMCST.h" 67 INCLUDE "clesphys.h" 67 68 ! 68 69 ! Input arguments … … 77 78 REAL, DIMENSION(klon), INTENT(IN) :: fder_old 78 79 REAL, DIMENSION(klon), INTENT(IN) :: p1lay 79 REAL, DIMENSION(klon), INTENT(IN) :: cdragh, cdrag m80 REAL, DIMENSION(klon), INTENT(IN) :: cdragh, cdragq, cdragm 80 81 REAL, DIMENSION(klon), INTENT(IN) :: precip_rain, precip_snow 81 82 REAL, DIMENSION(klon), INTENT(IN) :: temp_air, spechum … … 136 137 137 138 CALL calcul_fluxs(knon, is_oce, dtime, & 138 tsurf_cpl, p1lay, cal, beta, cdragh, ps, &139 tsurf_cpl, p1lay, cal, beta, cdragh, cdragq, ps, & 139 140 precip_rain, precip_snow, snow, qsurf, & 140 141 radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, & 141 AcoefH, AcoefQ, BcoefH, BcoefQ, &142 f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, & 142 143 tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l) 143 144 … … 200 201 201 202 INCLUDE "YOMCST.h" 203 INCLUDE "clesphys.h" 202 204 203 205 ! Input arguments … … 279 281 280 282 CALL calcul_fluxs(knon, is_sic, dtime, & 281 tsurf_cpl, p1lay, cal, beta, cdragh, ps, &283 tsurf_cpl, p1lay, cal, beta, cdragh, cdragh, ps, & 282 284 precip_rain, precip_snow, snow, qsurf, & 283 285 radsol, dif_grnd, temp_air, spechum, u1_lay, v1_lay, gustiness, & 284 AcoefH, AcoefQ, BcoefH, BcoefQ, &286 f_qsat_oce,AcoefH, AcoefQ, BcoefH, BcoefQ, & 285 287 tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l) 286 288
Note: See TracChangeset
for help on using the changeset viewer.