- Timestamp:
- 2020-11-25T14:49:40+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/OVERFLOW/MY_SRC/usrdef_istate.F90
r13762 r13874 8 8 !!============================================================================== 9 9 !! History : NEMO ! 2016-03 (S. Flavoni, G. Madec) Original code 10 !! ! 2020-11 (S. Techene, G. Madec) separate tsuv from ssh 10 11 !!---------------------------------------------------------------------- 11 12 … … 23 24 PRIVATE 24 25 25 PUBLIC usr_def_istate ! called by istate.F9026 PUBLIC usr_def_ ssh! called by domqco.F9026 PUBLIC usr_def_istate ! called by istate.F90 27 PUBLIC usr_def_istate_ssh ! called by domqco.F90 27 28 28 29 !!---------------------------------------------------------------------- … … 33 34 CONTAINS 34 35 35 SUBROUTINE usr_def_istate( pdept, ptmask, pts, pu, pv , pssh)36 SUBROUTINE usr_def_istate( pdept, ptmask, pts, pu, pv ) 36 37 !!---------------------------------------------------------------------- 37 38 !! *** ROUTINE usr_def_istate *** … … 48 49 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT( out) :: pu ! i-component of the velocity [m/s] 49 50 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT( out) :: pv ! j-component of the velocity [m/s] 50 REAL(wp), DIMENSION(jpi,jpj) , INTENT( out) :: pssh ! sea-surface height51 51 ! 52 52 INTEGER :: jk ! dummy loop indices … … 66 66 pu (:,:,:) = 0._wp ! ocean at rest 67 67 pv (:,:,:) = 0._wp 68 pssh(:,:) = 0._wp69 68 ! 70 69 ! ! T & S profiles … … 80 79 81 80 82 SUBROUTINE usr_def_ ssh( ptmask, pssh )81 SUBROUTINE usr_def_istate_ssh( ptmask, pssh ) 83 82 !!---------------------------------------------------------------------- 84 !! *** ROUTINE usr_def_ ssh ***83 !! *** ROUTINE usr_def_istate_ssh *** 85 84 !! 86 85 !! ** Purpose : Initialization of the ssh 87 86 !! Here OVERFLOW configuration 88 87 !! 89 !! ** Method : set ssh 88 !! ** Method : set ssh to 0 90 89 !!---------------------------------------------------------------------- 91 90 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT(in ) :: ptmask ! t-point ocean mask [m] … … 94 93 ! 95 94 IF(lwp) WRITE(numout,*) 96 IF(lwp) WRITE(numout,*) 'usr_def_ ssh : OVERFLOW configuration, analytical definition of initial state'95 IF(lwp) WRITE(numout,*) 'usr_def_istate_ssh : OVERFLOW configuration, analytical definition of initial state' 97 96 ! 98 97 pssh(:,:) = 0._wp 99 98 ! 100 END SUBROUTINE usr_def_ ssh99 END SUBROUTINE usr_def_istate_ssh 101 100 102 101 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.