Changeset 1947 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traqsr_tam.F90

Timestamp:

2010-06-22T17:38:55+02:00 (14 years ago)

Author:

rblod

Message:

adjustement for TAM branch

File:

• branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traqsr_tam.F90 (modified) (1 diff)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traqsr_tam.F90

@@ -277 +277 @@
                   DO ji = fs_2, fs_jpim1   ! vector opt.
                      ! qsr trend
-                     qsr_ad(ji,jj) = qsr_ad(ji,jj) + ta_ad(ji,jj,jk) * zc0 * ( gdsr(jk)*tmask(ji,jj,jk) - gdsr(jk+1)*tmask(ji,jj,jk+1) )
+                     qsr_ad(ji,jj) = qsr_ad(ji,jj) + ta_ad(ji,jj,jk) * zc0   &
+                                   &   * ( gdsr(jk)*tmask(ji,jj,jk) - gdsr(jk+1)*tmask(ji,jj,jk+1) )
                   END DO
                END DO