Changeset 13874 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/ISOMIP/MY_SRC/usrdef_istate.F90
- 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/ISOMIP/MY_SRC/usrdef_istate.F90
r13762 r13874 9 9 !! History : NEMO ! 2016-11 (S. Flavoni) Original code 10 10 !! ! 2017-02 (P. Mathiot, S. Flavoni) Adapt code to ISOMIP case 11 !! ! 2020-11 (S. Techene, G. Madec) separate tsuv from ssh 11 12 !!---------------------------------------------------------------------- 12 13 … … 24 25 PRIVATE 25 26 26 PUBLIC usr_def_istate ! called by istate.F9027 PUBLIC usr_def_ ssh! called by domqco.F9027 PUBLIC usr_def_istate ! called by istate.F90 28 PUBLIC usr_def_istate_ssh ! called by domqco.F90 28 29 29 30 !!---------------------------------------------------------------------- … … 34 35 CONTAINS 35 36 36 SUBROUTINE usr_def_istate( pdept, ptmask, pts, pu, pv , pssh)37 SUBROUTINE usr_def_istate( pdept, ptmask, pts, pu, pv ) 37 38 !!---------------------------------------------------------------------- 38 39 !! *** 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 !53 INTEGER :: jk ! dummy loop indices54 52 !!---------------------------------------------------------------------- 55 53 ! … … 59 57 pu (:,:,:) = 0._wp ! ocean at rest 60 58 pv (:,:,:) = 0._wp 61 pssh(:,:) = 0._wp62 !63 59 ! ! T & S profiles 64 60 pts(:,:,:,jp_tem) = - 1.9 * ptmask(:,:,:) ! ISOMIP configuration : start from constant T+S fields … … 68 64 69 65 70 SUBROUTINE usr_def_ ssh( ptmask, pssh )66 SUBROUTINE usr_def_istate_ssh( ptmask, pssh ) 71 67 !!---------------------------------------------------------------------- 72 !! *** ROUTINE usr_def_ ssh ***68 !! *** ROUTINE usr_def_istate_ssh *** 73 69 !! 74 70 !! ** Purpose : Initialization of ssh 75 71 !! Here ISOMIP configuration 76 72 !! 77 !! ** Method : set ssh 73 !! ** Method : set ssh to 0 78 74 !!---------------------------------------------------------------------- 79 75 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT(in ) :: ptmask ! t-point ocean mask [m] … … 82 78 ! 83 79 IF(lwp) WRITE(numout,*) 84 IF(lwp) WRITE(numout,*) 'usr_def_ ssh : ISOMIP configuration, analytical definition of initial state'80 IF(lwp) WRITE(numout,*) 'usr_def_istate_ssh : ISOMIP configuration, analytical definition of initial state' 85 81 ! 86 82 pssh(:,:) = 0._wp 87 83 ! 88 END SUBROUTINE usr_def_ ssh84 END SUBROUTINE usr_def_istate_ssh 89 85 90 86 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.