Changeset 2326 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/PISCES

Timestamp:

2010-10-28T11:06:10+02:00 (14 years ago)

Author:

cetlod

Message:

correction of minor bugs on bio-optical retroaction when using PISCES

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zopt.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zopt.F90

@@ -234 +234 @@
       !!----------------------------------------------------------------------
 
-!!      CALL trc_oce_rgb( xkrgb )                  ! tabulated attenuation coefficients
-      CALL trc_oce_rgb_read( xkrgb )               ! tabulated attenuation coefficients
+      CALL trc_oce_rgb( xkrgb )                  ! tabulated attenuation coefficients
+!!      CALL trc_oce_rgb_read( xkrgb )               ! tabulated attenuation coefficients
       nksrp = trc_oce_ext_lev( r_si2, 0.33e2 )     ! max level of light extinction (Blue Chl=0.01)
       IF(lwp) WRITE(numout,*) '        level of light extinction = ', nksrp, ' ref depth = ', gdepw_0(nksrp+1), ' m'
       !
-      etot (:,:,:) = 0.e0
-      enano(:,:,:) = 0.e0
-      ediat(:,:,:) = 0.e0
+                         etot (:,:,:) = 0.e0
+                         enano(:,:,:) = 0.e0
+                         ediat(:,:,:) = 0.e0
       IF( ln_qsr_bio )   etot3(:,:,:) = 0.e0
-
       ! 
    END SUBROUTINE p4z_opt_init