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 3326 for branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90 – NEMO

Ignore:
Timestamp:
2012-03-14T10:19:21+01:00 (12 years ago)
Author:
gm
Message:

Ediag branche: #927 add Potential Energy trend diagnostics (trdpen.F90)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/TRD/trdken.F90

    r3325 r3326  
    8888      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zke                 ! 3D workspace  
    8989      !!---------------------------------------------------------------------- 
     90      ! 
     91      CALL wrk_alloc( jpi, jpj     , z2dx, z2dy, zke2d ) 
     92      CALL wrk_alloc( jpi, jpj, jpk, zke ) 
    9093      ! 
    9194      CALL lbc_lnk( putrd, 'U', -1. )   ;   CALL lbc_lnk( pvtrd, 'V', -1. )      ! lateral boundary conditions 
Note: See TracChangeset for help on using the changeset viewer.