Changeset 3275 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.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/trasbc.F90 (modified) (1 diff)

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

@@ -164 +164 @@
                                                
       IF( lk_vvl ) THEN                            ! Variable Volume case
-         DO jj = 2, jpj
-            DO ji = fs_2, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi 
                ! temperature : heat flux + cooling/heating effet of EMP flux
                sbc_tsc(ji,jj,jp_tem) = ro0cpr * qns(ji,jj) - zsrau * emp(ji,jj) * tsn(ji,jj,1,jp_tem)