Changeset 2031 for trunk/NEMO/OPA_SRC/TRA/traqsr.F90

Timestamp:

2010-07-29T14:31:53+02:00 (14 years ago)

Author:

rblod

Message:

Fix issues with OBC and AGRIF, see ticket #688 and #692

File:

• trunk/NEMO/OPA_SRC/TRA/traqsr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -45 +45 @@
    
    ! Module variables
+!$AGRIF_DO_NOT_TREAT
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_chl   ! structure of input Chl (file informations, fields read)
    INTEGER ::   nksr   ! levels below which the light cannot penetrate ( depth larger than 391 m)
    REAL(wp), DIMENSION(3,61) ::   rkrgb   !: tabulated attenuation coefficients for RGB absorption
+!$AGRIF_END_DO_NOT_TREAT
 
    !! * Substitutions