- Timestamp:
- 2020-11-25T14:49:40+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_istate.F90
r13762 r13874 9 9 !! History : 4.0 ! 2016-03 (S. Flavoni) Original code 10 10 !! - ! 2020-03 (A. Nasser) Shallow Water Eq. configuration 11 !! ! 2020-11 (S. Techene, G. Madec) separate tsuv from ssh 11 12 !!---------------------------------------------------------------------- 12 13 … … 23 24 PRIVATE 24 25 25 PUBLIC usr_def_istate ! called in istate.F9026 PUBLIC usr_def_ ssh! called by domqco.F9026 PUBLIC usr_def_istate ! called in 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 *** … … 49 50 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT( out) :: pu ! i-component of the velocity [m/s] 50 51 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT( out) :: pv ! j-component of the velocity [m/s] 51 REAL(wp), DIMENSION(jpi,jpj) , INTENT( out) :: pssh ! sea-surface height52 52 ! 53 53 INTEGER :: ji, jj, jk ! dummy loop indices … … 60 60 pu (:,:,:) = 0._wp ! ocean at rest 61 61 pv (:,:,:) = 0._wp 62 pssh(:,:) = 0._wp63 62 pts (:,:,:,:) = 0._wp ! not used in SWE 64 63 … … 69 68 70 69 71 SUBROUTINE usr_def_ ssh( ptmask, pssh )70 SUBROUTINE usr_def_istate_ssh( ptmask, pssh ) 72 71 !!---------------------------------------------------------------------- 73 !! *** ROUTINE usr_def_ ssh ***72 !! *** ROUTINE usr_def_istate_ssh *** 74 73 !! 75 74 !! ** Purpose : Initialization of ssh 76 75 !! Here SWG configuration 77 76 !! 78 !! ** Method : set ssh 77 !! ** Method : set ssh to 0 79 78 !!---------------------------------------------------------------------- 80 79 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT(in ) :: ptmask ! t-point ocean mask [m] … … 83 82 ! 84 83 IF(lwp) WRITE(numout,*) 85 IF(lwp) WRITE(numout,*) 'usr_def_ ssh : SWG configuration, analytical definition of initial state'84 IF(lwp) WRITE(numout,*) 'usr_def_istate_ssh : SWG configuration, analytical definition of initial state' 86 85 ! 87 86 pssh(:,:) = 0._wp ! ocean at rest 88 87 ! 89 END SUBROUTINE usr_def_ ssh88 END SUBROUTINE usr_def_istate_ssh 90 89 91 90 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.