- 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/OVERFLOW/MY_SRC/usrdef_istate.F90
r12489 r13762 24 24 25 25 PUBLIC usr_def_istate ! called by istate.F90 26 26 PUBLIC usr_def_ssh ! called by domqco.F90 27 27 28 !!---------------------------------------------------------------------- 28 29 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 78 79 END SUBROUTINE usr_def_istate 79 80 81 82 SUBROUTINE usr_def_ssh( ptmask, pssh ) 83 !!---------------------------------------------------------------------- 84 !! *** ROUTINE usr_def_ssh *** 85 !! 86 !! ** Purpose : Initialization of the ssh 87 !! Here OVERFLOW configuration 88 !! 89 !! ** Method : set ssh 90 !!---------------------------------------------------------------------- 91 REAL(wp), DIMENSION(jpi,jpj,jpk) , INTENT(in ) :: ptmask ! t-point ocean mask [m] 92 REAL(wp), DIMENSION(jpi,jpj) , INTENT( out) :: pssh ! sea-surface height [m] 93 !!---------------------------------------------------------------------- 94 ! 95 IF(lwp) WRITE(numout,*) 96 IF(lwp) WRITE(numout,*) 'usr_def_ssh : OVERFLOW configuration, analytical definition of initial state' 97 ! 98 pssh(:,:) = 0._wp 99 ! 100 END SUBROUTINE usr_def_ssh 101 80 102 !!====================================================================== 81 103 END MODULE usrdef_istate
Note: See TracChangeset
for help on using the changeset viewer.