Changeset 8397 for trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

Timestamp:

2017-08-01T12:42:46+02:00 (7 years ago)

Author:

lovato

Message:

trunk: fix bug in CFC fluxes indexing for output (#1925)

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

@@ -180 +180 @@
       !
       IF( lk_iomput ) THEN
+         jl = 0
          DO jn = jp_cfc0, jp_cfc1
-            CALL iom_put( 'qtr_'//ctrcnm(jn) , qtr_cfc (:,:,jn) )
-            CALL iom_put( 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) )
+            jl = jl + 1
+            CALL iom_put( 'qtr_'//TRIM(ctrcnm(jn)) , qtr_cfc (:,:,jl) )
+            CALL iom_put( 'qint_'//TRIM(ctrcnm(jn)), qint_cfc(:,:,jl) )
          ENDDO
       END IF