Ignore:
Timestamp:
2011-03-30T17:58:35+02:00 (10 years ago)
Author:
rblod
Message:

First attempt to put dynamic allocation on the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90

    r2547 r2715  
    1313   USE dom_oce         ! ocean space and time domain variables  
    1414   USE zdf_oce         ! ocean vertical physics variables 
    15  
    1615   USE trdmod          ! ocean active dynamics and tracers trends  
    1716   USE trdmod_oce      ! ocean variables trends 
     
    4342      !! ** Action  :   (ua,va)   momentum trend increased by bottom friction trend 
    4443      !!--------------------------------------------------------------------- 
    45       USE oce, ONLY :   ztrduv => tsa   ! use tsa as 4D workspace 
     44      USE oce, ONLY:   ztrduv => tsa   ! tsa used as 4D workspace 
    4645      !! 
    4746      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
Note: See TracChangeset for help on using the changeset viewer.