Changeset 13463 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/tests/VORTEX/MY_SRC/usrdef_sbc.F90
- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/tests/VORTEX/MY_SRC/usrdef_sbc.F90
r10074 r13463 30 30 PUBLIC usrdef_sbc_ice_flx ! routine called by icestp.F90 for ice thermo 31 31 32 !! * Substitutions33 # include "vectopt_loop_substitute.h90"34 32 !!---------------------------------------------------------------------- 35 33 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 39 37 CONTAINS 40 38 41 SUBROUTINE usrdef_sbc_oce( kt )39 SUBROUTINE usrdef_sbc_oce( kt, Kbb ) 42 40 !!--------------------------------------------------------------------- 43 41 !! *** ROUTINE usr_def_sbc *** … … 54 52 !!---------------------------------------------------------------------- 55 53 INTEGER, INTENT(in) :: kt ! ocean time step 54 INTEGER, INTENT(in) :: Kbb ! ocean time index 56 55 !!--------------------------------------------------------------------- 57 56 ! … … 79 78 END SUBROUTINE usrdef_sbc_ice_tau 80 79 81 SUBROUTINE usrdef_sbc_ice_flx( kt ) 80 81 SUBROUTINE usrdef_sbc_ice_flx( kt, phs, phi ) 82 82 INTEGER, INTENT(in) :: kt ! ocean time step 83 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phs ! snow thickness 84 REAL(wp), DIMENSION(:,:,:), INTENT(in) :: phi ! ice thickness 83 85 END SUBROUTINE usrdef_sbc_ice_flx 84 86
Note: See TracChangeset
for help on using the changeset viewer.