Changeset 2514 for branches

Timestamp:

2010-12-23T17:06:35+01:00 (13 years ago)

Author:

smasson

Message:

v33b: bugfix for agrif when using Chlorophyll data, introduced in ticket #688

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -48 +48 @@
    REAL(wp) ::   xsi0r                           !: inverse of rn_si0
    REAL(wp) ::   xsi1r                           !: inverse of rn_si1
-!$AGRIF_DO_NOT_TREAT
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   sf_chl   ! structure of input Chl (file informations, fields read)
    INTEGER, PUBLIC ::   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