Changeset 8350 for branches/UKMO/dev_r5518_GO6_package_r7750_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2017-07-19T12:32:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_r7750_plus_form_drag/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r6500 r8350 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 … … 786 786 ENDIF 787 787 788 ! Surface roughness length for form drag 789 CALL cice2nemo(z0atm,fmdice,'T', 1. ) 790 788 791 ! 789 792 IF( nn_timing == 1 ) CALL timing_stop('cice_sbc_hadgam')
Note: See TracChangeset
for help on using the changeset viewer.