Changeset 8384 for branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2017-07-27T12:27:39+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_r8356_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r8280 r8384 68 68 #endif 69 69 USE ice_forcing, only: frcvdr,frcvdf,frcidr,frcidf 70 USE ice_atmo, only: calc_strair 70 USE ice_atmo, only: calc_strair, z0atm 71 71 72 72 USE CICE_InitMod … … 785 785 ENDIF 786 786 787 ! Surface roughness length for form drag 788 CALL cice2nemo(z0atm,fmdice,'T', 1. ) 789 787 790 ! 788 791 IF( nn_timing == 1 ) CALL timing_stop('cice_sbc_hadgam')
Note: See TracChangeset
for help on using the changeset viewer.