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 5917 for branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/oce.F90 – NEMO

Ignore:
Timestamp:
2015-11-25T11:03:43+01:00 (8 years ago)
Author:
jchanut
Message:

Free surface simplification #1620. Step 4 (Final): add Gurvan's suggestions

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5847_MERCATOR9_solveur_simplification/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r5902 r5917  
    4747#endif 
    4848 
    49    !! Arrays at barotropic time step: 
    50    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::  &  
    51                                                             sshbb_e, sshb_e, sshn_e, ssha_e, &  
    52                                                             ubb_e,     ub_e,           ua_e, & 
    53                                                             vbb_e,     vb_e,           va_e, & 
    54                                                             hu_e,  hur_e,   hv_e,  hvr_e 
     49   !! Arrays at barotropic time step:                   ! bef before !   before   !    now     !   after    ! 
     50   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   ubb_e    ,    ub_e    ,    un_e    ,    ua_e  
     51   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vbb_e    ,    vb_e    ,    vn_e    ,    va_e  
     52   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   sshbb_e  ,    sshb_e  ,    sshn_e  ,    ssha_e  
     53   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::                              hu_e 
     54   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::                              hv_e                                                 
     55   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::                              hur_e 
     56   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::                              hvr_e  
    5557 
    5658   !! interpolated gradient (only used in zps case) 
Note: See TracChangeset for help on using the changeset viewer.