Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.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/TRA/trabbc.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

@@ -67 +67 @@
       !!              Emile-Geay and Madec, 2009, Ocean Science.
       !!----------------------------------------------------------------------
-      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index
+      INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !!
       INTEGER  ::   ji, jj, ik    ! dummy loop indices
       REAL(wp) ::   zqgh_trd      ! geothermal heat flux trend
-      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ztrdt
+      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrdt
       !!----------------------------------------------------------------------
       !