Changeset 3627 for branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90

Timestamp:

2012-11-21T19:01:50+01:00 (12 years ago)

Author:

rblod

Message:

Correct long lines in TAM 4.3 see ticket #1010

File:

• branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90 (modified) (2 diffs)

branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90

@@ -263 +263 @@
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1
-                  pta_tl(ji,jj,jk,jn) = ( pta_tl(ji,jj,jk,jn) - zws(ji,jj,jk) * pta_tl(ji,jj,jk+1,jn) ) / zwt(ji,jj,jk) * tmask(ji,jj,jk)
+                  pta_tl(ji,jj,jk,jn) = ( pta_tl(ji,jj,jk,jn) - zws(ji,jj,jk) * pta_tl(ji,jj,jk+1,jn) )   &
+                                  &   / zwt(ji,jj,jk) * tmask(ji,jj,jk)
                END DO
             END DO
@@ -434 +435 @@
             DO jj = 2, jpjm1
                DO ji = fs_2, fs_jpim1
-                  pta_ad(ji,jj,jk+1,jn) = pta_ad(ji,jj,jk+1,jn) - zws(ji,jj,jk) * pta_ad(ji,jj,jk,jn) / zwt(ji,jj,jk) * tmask(ji,jj,jk)
+                  pta_ad(ji,jj,jk+1,jn) = pta_ad(ji,jj,jk+1,jn) - zws(ji,jj,jk) * pta_ad(ji,jj,jk,jn)   &
+                                    &   / zwt(ji,jj,jk) * tmask(ji,jj,jk)
                   pta_ad(ji,jj,jk,jn)   = pta_ad(ji,jj,jk,jn) / zwt(ji,jj,jk) * tmask(ji,jj,jk)
                END DO