Changeset 3631 for branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2012-11-22T15:21:22+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/ICB/icbthm.F90
r3614 r3631 207 207 IF(.NOT. ln_passive_mode ) THEN 208 208 emp (:,:) = emp (:,:) - berg_grid%floating_melt(:,:) 209 emps(:,:) = emps(:,:) - berg_grid%floating_melt(:,:)210 209 !! qns (:,:) = qns (:,:) + berg_grid%calving_hflx (:,:) !!gm heat flux not yet properly coded ==>> need it, SOLVE that! 211 210 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.