New URL for NEMO forge! http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.

Changeset 8478 – NEMO

Context Navigation

← Previous Changeset
Next Changeset →

Changeset 8478

Timestamp:

2017-08-31T17:22:10+02:00 (7 years ago)

Author:

jamrae

Message:

Added call to cice2nemo for roughness length in cice_sbc_init.

File:

: 1 edited

branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

-                      r8384
+                      r8478
          snwice_mass_b(:,:) = 0.0_wp         ! no mass exchanges
       ENDIF
+      CALL cice2nemo(z0atm,fmdice,'T', 1. )
       IF( .NOT. ln_rstart ) THEN
          IF( nn_ice_embd == 2 ) THEN            ! full embedment (case 2) deplete the initial ssh below sea-ice area

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: