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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_r8638_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r8400 r9717 71 71 #endif 72 72 USE ice_forcing, only: frcvdr,frcvdf,frcidr,frcidf 73 USE ice_atmo, only: calc_strair 73 USE ice_atmo, only: calc_strair, z0atm, z0atmskin 74 74 75 75 USE CICE_InitMod … … 261 261 snwice_mass_b(:,:) = 0.0_wp ! no mass exchanges 262 262 ENDIF 263 264 CALL cice2nemo(z0atm,rough_ice_fmd,'T', 1. ) 265 CALL cice2nemo(z0atmskin,rough_ice_skin,'T', 1. ) 266 263 267 IF( .NOT. ln_rstart ) THEN 264 268 IF( nn_ice_embd == 2 ) THEN ! full embedment (case 2) deplete the initial ssh below sea-ice area … … 808 812 ENDIF 809 813 814 ! Surface roughness length for form drag 815 CALL cice2nemo(z0atm,rough_ice_fmd,'T', 1. ) 816 817 ! Surface skin roughness length 818 810 819 ! 811 820 IF( nn_timing == 1 ) CALL timing_stop('cice_sbc_hadgam')
Note: See TracChangeset
for help on using the changeset viewer.