Changeset 3275 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

Timestamp:

2012-01-25T11:03:39+01:00 (12 years ago)

Author:

charris

Message:

Fix for #899, plus some vvl changes for the CICE interface code.

File:

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

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

@@ -239 +239 @@
                zz1   = ( 1. - rn_abs ) * ro0cpr
                DO jk = 1, nksr                    ! solar heat absorbed at T-point in the top 400m 
-                  DO jj = 2, jpjm1
-                     DO ji = 2, jpim1
+                  DO jj = 1, jpj
+                     DO ji = 1, jpi
                         zc0 = zz0 * EXP( -fsdepw(ji,jj,jk  )*xsi0r ) + zz1 * EXP( -fsdepw(ji,jj,jk  )*xsi1r )
                         zc1 = zz0 * EXP( -fsdepw(ji,jj,jk+1)*xsi0r ) + zz1 * EXP( -fsdepw(ji,jj,jk+1)*xsi1r )