- Timestamp:
- 2019-11-22T15:29:17+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/tests
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/tests
- Property svn:mergeinfo deleted
-
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/ISOMIP/MY_SRC/usrdef_sbc.F90
r10074 r11949 1 1 MODULE usrdef_sbc 2 2 !!====================================================================== 3 !! *** MODULEusrdef_sbc ***3 !! *** MODULE usrdef_sbc *** 4 4 !! 5 5 !! === ISOMIP configuration === … … 41 41 CONTAINS 42 42 43 SUBROUTINE usrdef_sbc_oce( kt )43 SUBROUTINE usrdef_sbc_oce( kt, Kbb ) 44 44 !!--------------------------------------------------------------------- 45 45 !! *** ROUTINE usr_def_sbc *** … … 56 56 !!---------------------------------------------------------------------- 57 57 INTEGER, INTENT(in) :: kt ! ocean time step 58 INTEGER, INTENT(in) :: Kbb ! ocean time index 58 59 !!--------------------------------------------------------------------- 59 60 ! … … 81 82 END SUBROUTINE usrdef_sbc_ice_tau 82 83 83 SUBROUTINE usrdef_sbc_ice_flx( kt ) 84 85 SUBROUTINE usrdef_sbc_ice_flx( kt, phs, phi ) 84 86 INTEGER, INTENT(in) :: kt ! ocean time step 87 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phs ! snow thickness 88 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phi ! ice thickness 85 89 END SUBROUTINE usrdef_sbc_ice_flx 86 90
Note: See TracChangeset
for help on using the changeset viewer.