Changeset 12928 for NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/tests/ISOMIP/MY_SRC/usrdef_sbc.F90
- Timestamp:
- 2020-05-14T21:46:00+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/tests/ISOMIP/MY_SRC/usrdef_sbc.F90
r10074 r12928 1 1 MODULE usrdef_sbc 2 2 !!====================================================================== 3 !! *** MODULEusrdef_sbc ***3 !! *** MODULE usrdef_sbc *** 4 4 !! 5 5 !! === ISOMIP configuration === … … 32 32 PUBLIC usrdef_sbc_ice_flx ! routine called by icestp.F90 for ice thermo 33 33 34 !! * Substitutions35 # include "vectopt_loop_substitute.h90"36 34 !!---------------------------------------------------------------------- 37 35 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 41 39 CONTAINS 42 40 43 SUBROUTINE usrdef_sbc_oce( kt )41 SUBROUTINE usrdef_sbc_oce( kt, Kbb ) 44 42 !!--------------------------------------------------------------------- 45 43 !! *** ROUTINE usr_def_sbc *** … … 56 54 !!---------------------------------------------------------------------- 57 55 INTEGER, INTENT(in) :: kt ! ocean time step 56 INTEGER, INTENT(in) :: Kbb ! ocean time index 58 57 !!--------------------------------------------------------------------- 59 58 ! … … 81 80 END SUBROUTINE usrdef_sbc_ice_tau 82 81 83 SUBROUTINE usrdef_sbc_ice_flx( kt ) 82 83 SUBROUTINE usrdef_sbc_ice_flx( kt, phs, phi ) 84 84 INTEGER, INTENT(in) :: kt ! ocean time step 85 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phs ! snow thickness 86 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phi ! ice thickness 85 87 END SUBROUTINE usrdef_sbc_ice_flx 86 88
Note: See TracChangeset
for help on using the changeset viewer.