Changeset 9922 for NEMO/trunk/src/ICE/iceupdate.F90
- Timestamp:
- 2018-07-10T19:15:48+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/iceupdate.F90
r9916 r9922 109 109 qt_atm_oi (:,:) = ( 1._wp - at_i_b(:,:) ) * ( qns_oce(:,:) + qsr_oce(:,:) ) + qemp_oce(:,:) 110 110 qt_oce_ai (:,:) = ( 1._wp - at_i_b(:,:) ) * qns_oce(:,:) + qemp_oce(:,:) 111 qtr_ice_bot(:,:,:) = 0._wp112 111 emp_ice (:,:) = 0._wp 113 112 qemp_ice (:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.