Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE
- Timestamp:
- 2018-07-29T11:23:51+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE
- Files:
-
- 2 edited
-
iceistate.F90 (modified) (1 diff)
-
iceupdate.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE/iceistate.F90
r10001 r10009 415 415 IF( ln_ice_embd ) THEN ! embedded sea-ice: deplete the initial ssh below sea-ice area 416 416 ! 417 ssh n(:,:) = sshn(:,:) - snwice_mass(:,:) * r1_rho0418 ssh b(:,:) = sshb(:,:) - snwice_mass(:,:) * r1_rho0417 ssh(:,:,Nnn) = ssh(:,:,Nnn) - snwice_mass(:,:) * r1_rho0 418 ssh(:,:,Nbb) = ssh(:,:,Nbb) - snwice_mass(:,:) * r1_rho0 419 419 ! 420 420 IF( .NOT.ln_linssh ) THEN ! modified the now and before vertical mesh and scale factors -
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE/iceupdate.F90
r9939 r10009 15 15 !! ice_update_tau : update i- and j-stresses, and its modulus at the ocean surface 16 16 !!---------------------------------------------------------------------- 17 USE oce , ONLY : sshn, sshb18 17 USE phycst ! physical constants 19 18 USE dom_oce ! ocean domain
Note: See TracChangeset
for help on using the changeset viewer.
