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 13361 for NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OCE/oce.F90 – NEMO

Ignore:
Timestamp:
2020-07-30T16:46:51+02:00 (4 years ago)
Author:
techene
Message:

make horizontal surface pressure gradient public variables local

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OCE/oce.F90

    r13237 r13361  
    4949   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   ub2_i_b, vb2_i_b         !: Half step time integrated fluxes  
    5050#endif 
    51    ! 
    52    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   spgu, spgv               !: horizontal surface pressure gradient 
    5351 
    5452   !! interpolated gradient (only used in zps case) 
    … …  
    8381      ! 
    8482      ierr(:) = 0  
    85       ALLOCATE( uu   (jpi,jpj,jpk,jpt)  , vv   (jpi,jpj,jpk,jpt) ,                              &           
    86          &      ww   (jpi,jpj,jpk)      , hdiv(jpi,jpj,jpk)      ,                              & 
    87          &      ts   (jpi,jpj,jpk,jpts,jpt),                                                    & 
    88          &      rab_b(jpi,jpj,jpk,jpts) , rab_n(jpi,jpj,jpk,jpts) ,                             & 
    89          &      rn2b (jpi,jpj,jpk)      , rn2  (jpi,jpj,jpk)      ,                             & 
    90          &      rhd  (jpi,jpj,jpk)      , rhop (jpi,jpj,jpk)                              , STAT=ierr(1) ) 
     83      ALLOCATE( uu   (jpi,jpj,jpk,jpt)  , vv   (jpi,jpj,jpk,jpt)           ,     &           
     84         &      ww   (jpi,jpj,jpk)      , hdiv(jpi,jpj,jpk)                ,     & 
     85         &      ts   (jpi,jpj,jpk,jpts,jpt)                                ,     & 
     86         &      rab_b(jpi,jpj,jpk,jpts) , rab_n(jpi,jpj,jpk,jpts)          ,     & 
     87         &      rn2b (jpi,jpj,jpk)      , rn2  (jpi,jpj,jpk)               ,     & 
     88         &      rhd  (jpi,jpj,jpk)      , rhop (jpi,jpj,jpk)               , STAT=ierr(1) ) 
    9189         ! 
    92       ALLOCATE( ssh(jpi,jpj,jpt)  , uu_b(jpi,jpj,jpt) , vv_b(jpi,jpj,jpt) , & 
    93          &      spgu  (jpi,jpj)   , spgv(jpi,jpj)                     ,     & 
    94          &      gtsu(jpi,jpj,jpts), gtsv(jpi,jpj,jpts)                ,     & 
    95          &      gru(jpi,jpj)      , grv(jpi,jpj)                      ,     & 
    96          &      gtui(jpi,jpj,jpts), gtvi(jpi,jpj,jpts)                ,     & 
    97          &      grui(jpi,jpj)     , grvi(jpi,jpj)                     ,     & 
    98          &      riceload(jpi,jpj)                                     , STAT=ierr(2) ) 
     90      ALLOCATE( ssh (jpi,jpj,jpt)  , uu_b(jpi,jpj,jpt) , vv_b(jpi,jpj,jpt) ,     & 
     91         &      gtsu(jpi,jpj,jpts) , gtsv(jpi,jpj,jpts)                    ,     & 
     92         &      gru (jpi,jpj)      , grv (jpi,jpj)                         ,     & 
     93         &      gtui(jpi,jpj,jpts) , gtvi(jpi,jpj,jpts)                    ,     & 
     94         &      grui(jpi,jpj)      , grvi(jpi,jpj)                         ,     & 
     95         &      riceload(jpi,jpj)                                          , STAT=ierr(2) ) 
    9996         ! 
    10097      ALLOCATE( fraqsr_1lev(jpi,jpj) , STAT=ierr(3) ) 
Note: See TracChangeset for help on using the changeset viewer.