Changeset 1947 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/opatam_tst_ini.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/opatam_tst_ini.F90 (modified) (2 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/opatam_tst_ini.F90

@@ -349 +349 @@
       IF (lwp) THEN
          ! Diagnostic file for tangent test
-         WRITE(file_out,FMT="('tan_diag.output_',I4.4)") , narea-1
+!         WRITE(file_out,FMT="('tan_diag.output_',I4.4)") , narea-1
          CALL ctlopn( numtan, file_out, 'UNKNOWN', 'FORMATTED',   &
             &         'SEQUENTIAL', 1, numtan, .FALSE., 1 )
@@ -363 +363 @@
       IF (lwp) THEN
          ! Diagnostic file for tangent test (scalar sampling)
-         WRITE(file_out,FMT="('tan_diag_sc.output_',I4.4)") , narea-1
+!         WRITE(file_out,FMT="('tan_diag_sc.output_',I4.4)") , narea-1
          CALL ctlopn( numtan_sc, file_out, 'UNKNOWN', 'FORMATTED',   &
             &         'SEQUENTIAL', 1, numtan_sc, .FALSE., 1 )