Changeset 6172 for CONFIG/UNIFORM/v6/IPSLCM6.5.1
- Timestamp:
- 06/16/22 12:20:13 (2 years ago)
- Location:
- CONFIG/UNIFORM/v6/IPSLCM6.5.1/SOURCES/NEMO
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
CONFIG/UNIFORM/v6/IPSLCM6.5.1/SOURCES/NEMO/isfcavmlt.F90
r6170 r6172 304 304 ! ocean heat flux is assume to be equal to the latent heat 305 305 ! pqfwf(:,:) = zfwf(:,:) ! fwf ( > 0 from isf to oce) 306 pqfwf(:,:) = fwfisf_oasis( (:,:) ! fwf ( > 0 from isf to oce)306 pqfwf(:,:) = fwfisf_oasis(:,:) ! fwf ( > 0 from isf to oce) 307 307 pqoce(:,:) = - pqfwf(:,:) * rLfusisf ! ocean heat flux ( > 0 from isf to oce) 308 308 pqhc (:,:) = pqfwf(:,:) * ztfrz(:,:) * rcp ! heat content flux ( > 0 from isf to oce)
Note: See TracChangeset
for help on using the changeset viewer.