Changeset 9717 for branches/UKMO/dev_r5518_GO6_package_r8638_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

Timestamp:

2018-05-31T17:25:15+02:00 (6 years ago)

Author:

jamrae

Message:

Made changes for sea ice form drag coupling.

File:

• branches/UKMO/dev_r5518_GO6_package_r8638_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90 (modified) (3 diffs)

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

@@ -71 +71 @@
 #endif
    USE ice_forcing, only: frcvdr,frcvdf,frcidr,frcidf
-   USE ice_atmo, only: calc_strair
+   USE ice_atmo, only: calc_strair, z0atm, z0atmskin
 
    USE CICE_InitMod
@@ -261 +261 @@
          snwice_mass_b(:,:) = 0.0_wp         ! no mass exchanges
       ENDIF
+
+      CALL cice2nemo(z0atm,rough_ice_fmd,'T', 1. )
+      CALL cice2nemo(z0atmskin,rough_ice_skin,'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
@@ -808 +812 @@
       ENDIF       
 
+! Surface roughness length for form drag
+      CALL cice2nemo(z0atm,rough_ice_fmd,'T', 1. )
+
+! Surface skin roughness length
+
       !
       IF( nn_timing == 1 )  CALL timing_stop('cice_sbc_hadgam')