New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6893 for branches/2016/dev_r6409_SIMPLIF_2_usrdef – NEMO

Ignore:
Timestamp:
2016-08-25T16:32:53+02:00 (8 years ago)
Author:
flavoni
Message:

1764, correction of declaration in userdef_istate and domzgr, in SIMPLIF2 branch

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  
    260260      !!                                     (min value = 1 over land) 
    261261      !!---------------------------------------------------------------------- 
    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 
    263264      ! 
    264265      INTEGER ::   ji, jj   ! dummy loop indices 

  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_istate.F90

    r6717 r6893  
    5353      ! 
    5454      pu  (:,:,:) = 0._wp        ! ocean at rest 
    55       pu  (:,:,:) = 0._wp 
     55      pv  (:,:,:) = 0._wp 
    5656      pssh(:,:)   = 0._wp 
    5757      ! 
Note: See TracChangeset for help on using the changeset viewer.