- Timestamp:
- 2012-06-15T14:53:43+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
r3402 r3414 470 470 ENDIF 471 471 IF( nn_ice_embd == 2 .AND. & ! full embedment (case 2) & no restart : 472 & .NOT.ln_rstart ) THEN ! deplete the initial ssh bel ew sea-ice area472 & .NOT.ln_rstart ) THEN ! deplete the initial ssh below sea-ice area 473 473 sshn(:,:) = sshn(:,:) - snwice_mass(:,:) * r1_rau0 474 474 sshb(:,:) = sshb(:,:) - snwice_mass(:,:) * r1_rau0
Note: See TracChangeset
for help on using the changeset viewer.