Changeset 12629 for NEMO/trunk/src/OCE/SBC
- Timestamp:
- 2020-03-30T17:13:24+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcblk.F90
r12615 r12629 1036 1036 evap_ice (:,:,:) = rn_efac * qla_ice (:,:,:) * z1_rLsub ! sublimation 1037 1037 devap_ice(:,:,:) = rn_efac * dqla_ice(:,:,:) * z1_rLsub ! d(sublimation)/dT 1038 zevap (:,:) = rn_efac * ( emp(:,:) + tprecip(:,:) ) ! evaporation over ocean !LB: should we remove rn_efac here???1038 zevap (:,:) = emp(:,:) + tprecip(:,:) ! evaporation over ocean !LB: removed rn_efac here, correct??? 1039 1039 1040 1040 ! --- evaporation minus precipitation --- !
Note: See TracChangeset
for help on using the changeset viewer.