- Timestamp:
- 2020-11-09T19:55:21+01:00 (4 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
r13752 r13762 24 24 25 25 PUBLIC usr_def_istate ! called in istate.F90 26 PUBLIC usr_def_ssh ! called by domqco.F90 26 27 27 28 !!---------------------------------------------------------------------- … … 67 68 END SUBROUTINE usr_def_istate 68 69 70 71 SUBROUTINE usr_def_ssh( ptmask, pssh ) 72 !!---------------------------------------------------------------------- 73 !! *** ROUTINE usr_def_ssh *** 74 !! 75 !! ** Purpose : Initialization of ssh 76 !! Here SWG configuration 77 !! 78 !! ** Method : set ssh 79 !!---------------------------------------------------------------------- 80 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT(in ) :: ptmask ! t-point ocean mask [m] 81 REAL(wp), DIMENSION(jpi,jpj) , INTENT( out) :: pssh ! sea-surface height 82 !!---------------------------------------------------------------------- 83 ! 84 IF(lwp) WRITE(numout,*) 85 IF(lwp) WRITE(numout,*) 'usr_def_ssh : SWG configuration, analytical definition of initial state' 86 ! 87 pssh(:,:) = 0._wp ! ocean at rest 88 ! 89 END SUBROUTINE usr_def_ssh 90 69 91 !!====================================================================== 70 92 END MODULE usrdef_istate
Note: See TracChangeset
for help on using the changeset viewer.