Changeset 3274


Ignore:
Timestamp:
2012-01-24T11:34:27+01:00 (9 years ago)
Author:
cetlod
Message:

minor bug correction, see ticket #914

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90

    r3272 r3274  
    438438   !!   default option :   Dummy code   NO rotation of the diffusive tensor 
    439439   !!---------------------------------------------------------------------- 
    440    REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE, SAVE ::   psix_eiv, psiy_eiv   !: eiv stream function (diag only) 
     440   REAL, PUBLIC, DIMENSION(:,:,:), ALLOCATABLE, SAVE ::   psix_eiv, psiy_eiv   !: eiv stream function (diag only) 
    441441CONTAINS 
    442442   SUBROUTINE tra_ldf_iso_grif( kt, kit000, cdtype, pgu, pgv,              & 
Note: See TracChangeset for help on using the changeset viewer.