Changeset 6893 for branches/2016/dev_r6409_SIMPLIF_2_usrdef
- Timestamp:
- 2016-08-25T16:32:53+02:00 (8 years ago)
- Location:
- branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r6717 r6893 260 260 !! (min value = 1 over land) 261 261 !!---------------------------------------------------------------------- 262 INTEGER , DIMENSION(:,:) , INTENT(out) :: k_top, k_bot ! top & bottom ocean level indices 262 !SF INTEGER , DIMENSION(:,:) , INTENT(out) :: k_top, k_bot ! top & bottom ocean level indices 263 INTEGER , DIMENSION(:,:) , INTENT(in) :: k_top, k_bot ! top & bottom ocean level indices 263 264 ! 264 265 INTEGER :: ji, jj ! dummy loop indices -
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_istate.F90
r6717 r6893 53 53 ! 54 54 pu (:,:,:) = 0._wp ! ocean at rest 55 p u(:,:,:) = 0._wp55 pv (:,:,:) = 0._wp 56 56 pssh(:,:) = 0._wp 57 57 !
Note: See TracChangeset
for help on using the changeset viewer.