- Timestamp:
- 2017-12-08T16:15:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_sbc.F90
r8882 r8962 229 229 END SUBROUTINE usrdef_sbc_ice_tau 230 230 231 SUBROUTINE usrdef_sbc_ice_flx( kt )231 SUBROUTINE usrdef_sbc_ice_flx( kt, phs, phi ) 232 232 INTEGER, INTENT(in) :: kt ! ocean time step 233 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phs ! snow thickness 234 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phi ! ice thickness 233 235 END SUBROUTINE usrdef_sbc_ice_flx 234 236
Note: See TracChangeset
for help on using the changeset viewer.