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 7910 for branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90 – NEMO

Ignore:
Timestamp:
2017-04-13T16:21:08+02:00 (7 years ago)
Author:
timgraham
Message:

All wrk_alloc removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90

    r7646 r7910  
    1212   USE in_out_manager  ! I/O units 
    1313   USE iom             ! I/0 library 
    14    USE wrk_nemo        ! working arrays 
    1514 
    1615 
     
    105104      !!-------------------------------------------------------------------- 
    106105      REAL(wp) ::   zmdi =1.e+20     ! land value 
    107       REAL(wp), POINTER, DIMENSION(:,:,:) :: zwtmb    ! workspace  
     106      REAL(wp), DIMENSION(jpi,jpj,3) :: zwtmb    ! workspace  
    108107      !!-------------------------------------------------------------------- 
    109108      ! 
    110109      IF (ln_diatmb) THEN 
    111          CALL wrk_alloc( jpi,jpj,3   , zwtmb ) 
    112110         CALL dia_calctmb(  tsn(:,:,:,jp_tem),zwtmb ) 
    113111         !ssh already output but here we output it masked 
     
    134132         CALL iom_put( "bot_v" , zwtmb(:,:,3) )    ! tmb  V Velocity 
    135133!Called in  dynspg_ts.F90       CALL iom_put( "baro_v" , vn_b )    ! Barotropic  V Velocity 
    136          CALL wrk_dealloc( jpi,jpj,3   , zwtmb ) 
    137134      ELSE 
    138135         CALL ctl_warn('dia_tmb: tmb diagnostic is set to false you should not have seen this') 
Note: See TracChangeset for help on using the changeset viewer.