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 7917 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90 – NEMO

Ignore:
Timestamp:
2017-04-18T10:47:12+02:00 (7 years ago)
Author:
timgraham
Message:

A few corrections for SETTE compilation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r7910 r7917  
    7474      REAL(wp), DIMENSION(jpi,jpj,jpl)    ::   zhimax, zviold, zvsold 
    7575      ! --- diffusion --- ! 
    76       REAL(wp), DIMENSION(jpi,jpj,jpl*(ihdf_vars+nlay_i)+1)    ::   zhdfptab 
    7776      INTEGER , PARAMETER                    ::   ihdf_vars  = 6 ! Number of variables in which we apply horizontal diffusion 
    7877                                                                 !  inside limtrp for each ice category , not counting the  
    7978                                                                 !  variables corresponding to ice_layers  
     79      REAL(wp), DIMENSION(jpi,jpj,jpl*(ihdf_vars+nlay_i)+1)    ::   zhdfptab 
    8080      ! --- ultimate macho only --- ! 
    8181      REAL(wp)                               ::   zdt 
Note: See TracChangeset for help on using the changeset viewer.