Changeset 12928 for NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/tests/BENCH/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/BENCH/MY_SRC/usrdef_sbc.F90
r10179 r12928 34 34 PUBLIC usrdef_sbc_ice_flx ! routine called by sbcice_lim.F90 for ice thermo 35 35 36 !! * Substitutions 37 # include "do_loop_substitute.h90" 36 38 !!---------------------------------------------------------------------- 37 39 !! NEMO/OPA 4.0 , NEMO Consortium (2016) … … 41 43 CONTAINS 42 44 43 SUBROUTINE usrdef_sbc_oce( kt )45 SUBROUTINE usrdef_sbc_oce( kt, Kbb ) 44 46 !!--------------------------------------------------------------------- 45 47 !! *** ROUTINE usr_def_sbc *** … … 56 58 !!---------------------------------------------------------------------- 57 59 INTEGER, INTENT(in) :: kt ! ocean time step 60 INTEGER, INTENT(in) :: Kbb ! ocean time index 58 61 !!--------------------------------------------------------------------- 59 62 ! … … 101 104 ! 102 105 ! define unique value on each point. z2d ranging from 0.05 to -0.05 103 DO jj = 1, jpj 104 DO ji = 1, jpi 105 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( nimpp + ji - 1 + ( njmpp + jj - 2 ) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 106 ENDDO 107 ENDDO 106 DO_2D_11_11 107 z2d(ji,jj) = 0.1 * ( 0.5 - REAL( nimpp + ji - 1 + ( njmpp + jj - 2 ) * jpiglo, wp ) / REAL( jpiglo * jpjglo, wp ) ) 108 END_2D 108 109 utau_ice(:,:) = 0.1_wp + z2d(:,:) 109 110 vtau_ice(:,:) = 0.1_wp + z2d(:,:)
Note: See TracChangeset
for help on using the changeset viewer.