Changeset 2240 for LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90
- Timestamp:
- Mar 23, 2015, 5:07:43 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90
r2227 r2240 14 14 AcoefH, AcoefQ, BcoefH, BcoefQ, & 15 15 AcoefU, AcoefV, BcoefU, BcoefV, & 16 ps, u1, v1, rugoro, pctsrf, &16 ps, u1, v1, gustiness, rugoro, pctsrf, & 17 17 snow, qsurf, agesno, & 18 18 !albedo SB >>> … … 62 62 REAL, DIMENSION(klon), INTENT(IN) :: AcoefU, AcoefV, BcoefU, BcoefV 63 63 REAL, DIMENSION(klon), INTENT(IN) :: ps 64 REAL, DIMENSION(klon), INTENT(IN) :: u1, v1 64 REAL, DIMENSION(klon), INTENT(IN) :: u1, v1, gustiness 65 65 REAL, DIMENSION(klon), INTENT(IN) :: rugoro 66 66 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf … … 118 118 AcoefH, AcoefQ, BcoefH, BcoefQ, & 119 119 AcoefU, AcoefV, BcoefU, BcoefV, & 120 ps, u1, v1, &120 ps, u1, v1, gustiness, & 121 121 radsol, snow, agesno, & 122 122 qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, & … … 129 129 AcoefH, AcoefQ, BcoefH, BcoefQ, & 130 130 AcoefU, AcoefV, BcoefU, BcoefV, & 131 ps, u1, v1, tsurf_in, &131 ps, u1, v1, gustiness, tsurf_in, & 132 132 radsol, snow, & 133 133 qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, & … … 141 141 AcoefH, AcoefQ, BcoefH, BcoefQ, & 142 142 AcoefU, AcoefV, BcoefU, BcoefV, & 143 ps, u1, v1, &143 ps, u1, v1, gustiness, & 144 144 radsol, snow, agesno, & 145 145 qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, &
Note: See TracChangeset
for help on using the changeset viewer.