Changeset 3274 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM

Timestamp:

2012-01-24T11:34:27+01:00 (12 years ago)

Author:

cetlod

Message:

minor bug correction, see ticket #914

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

@@ -438 +438 @@
    !!   default option :   Dummy code   NO rotation of the diffusive tensor
    !!----------------------------------------------------------------------
-   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE, SAVE ::   psix_eiv, psiy_eiv   !: eiv stream function (diag only)
+   REAL, PUBLIC, DIMENSION(:,:,:), ALLOCATABLE, SAVE ::   psix_eiv, psiy_eiv   !: eiv stream function (diag only)
 CONTAINS
    SUBROUTINE tra_ldf_iso_grif( kt, kit000, cdtype, pgu, pgv,              &