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 14064 for NEMO/trunk/src/OCE/oce.F90 – NEMO

Ignore:
Timestamp:
2020-12-03T18:01:12+01:00 (3 years ago)
Author:
ayoung
Message:

Merging ticket #2506 into trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/oce.F90

    r14053 r14064  
    5050   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   ub2_i_b, vb2_i_b         !: Half step time integrated fluxes  
    5151#endif 
    52    ! 
    53    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   spgu, spgv               !: horizontal surface pressure gradient 
    5452 
    5553   !! interpolated gradient (only used in zps case) 
     
    9189      ! 
    9290      ierr(:) = 0  
    93       ALLOCATE( uu   (jpi,jpj,jpk,jpt)  , vv   (jpi,jpj,jpk,jpt) ,                              &           
    94          &      ww   (jpi,jpj,jpk)      , hdiv(jpi,jpj,jpk)      ,                              & 
    95          &      ts   (jpi,jpj,jpk,jpts,jpt),                                                    & 
    96          &      rab_b(jpi,jpj,jpk,jpts) , rab_n(jpi,jpj,jpk,jpts) ,                             & 
    97          &      rn2b (jpi,jpj,jpk)      , rn2  (jpi,jpj,jpk)      ,                             & 
    98          &      rhd  (jpi,jpj,jpk)      , rhop (jpi,jpj,jpk)                              , STAT=ierr(1) ) 
     91      ALLOCATE( uu   (jpi,jpj,jpk,jpt)  , vv   (jpi,jpj,jpk,jpt)           ,     &           
     92         &      ww   (jpi,jpj,jpk)      , hdiv(jpi,jpj,jpk)                ,     & 
     93         &      ts   (jpi,jpj,jpk,jpts,jpt)                                ,     & 
     94         &      rab_b(jpi,jpj,jpk,jpts) , rab_n(jpi,jpj,jpk,jpts)          ,     & 
     95         &      rn2b (jpi,jpj,jpk)      , rn2  (jpi,jpj,jpk)               ,     & 
     96         &      rhd  (jpi,jpj,jpk)      , rhop (jpi,jpj,jpk)               , STAT=ierr(1) ) 
    9997         ! 
    100       ALLOCATE( ssh(jpi,jpj,jpt)  , uu_b(jpi,jpj,jpt) , vv_b(jpi,jpj,jpt) , & 
    101          &      spgu  (jpi,jpj)   , spgv(jpi,jpj)                     ,     & 
    102          &      gtsu(jpi,jpj,jpts), gtsv(jpi,jpj,jpts)                ,     & 
    103          &      gru(jpi,jpj)      , grv(jpi,jpj)                      ,     & 
    104          &      gtui(jpi,jpj,jpts), gtvi(jpi,jpj,jpts)                ,     & 
    105          &      grui(jpi,jpj)     , grvi(jpi,jpj)                     ,     & 
    106          &      riceload(jpi,jpj)                                     , STAT=ierr(2) ) 
     98      ALLOCATE( ssh (jpi,jpj,jpt)  , uu_b(jpi,jpj,jpt) , vv_b(jpi,jpj,jpt) ,     & 
     99         &      gtsu(jpi,jpj,jpts) , gtsv(jpi,jpj,jpts)                    ,     & 
     100         &      gru (jpi,jpj)      , grv (jpi,jpj)                         ,     & 
     101         &      gtui(jpi,jpj,jpts) , gtvi(jpi,jpj,jpts)                    ,     & 
     102         &      grui(jpi,jpj)      , grvi(jpi,jpj)                         ,     & 
     103         &      riceload(jpi,jpj)                                          , STAT=ierr(2) ) 
    107104         ! 
    108105      ALLOCATE( fraqsr_1lev(jpi,jpj) , STAT=ierr(3) ) 
Note: See TracChangeset for help on using the changeset viewer.