- Timestamp:
- 2017-12-13T15:58:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_sbc.F90
r7753 r9019 27 27 28 28 PUBLIC usrdef_sbc_oce ! routine called in sbcmod module 29 PUBLIC usrdef_sbc_ice_tau ! routine called by sbcice_lim.F90 for ice dynamics30 PUBLIC usrdef_sbc_ice_flx ! routine called by sbcice_lim.F90 for ice thermo29 PUBLIC usrdef_sbc_ice_tau ! routine called by icestp.F90 for ice dynamics 30 PUBLIC usrdef_sbc_ice_flx ! routine called by icestp.F90 for ice thermo 31 31 32 32 !! * Substitutions … … 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.