Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90

@@ -13 +13 @@
    USE dom_oce         ! ocean space and time domain variables 
    USE zdf_oce         ! ocean vertical physics variables
-
    USE trdmod          ! ocean active dynamics and tracers trends 
    USE trdmod_oce      ! ocean variables trends
@@ -43 +42 @@
       !! ** Action  :   (ua,va)   momentum trend increased by bottom friction trend
       !!---------------------------------------------------------------------
-      USE oce, ONLY :   ztrduv => tsa   ! use tsa as 4D workspace
+      USE oce, ONLY:   ztrduv => tsa   ! tsa used as 4D workspace
       !!
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index