Changeset 8868 for branches/2017/dev_METO_2017/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

Timestamp:

2017-12-01T09:43:23+01:00 (6 years ago)

Author:

timgraham

Message:

Merged dev_r8789_sbc into branch

File:

• branches/2017/dev_METO_2017/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (1 diff)

branches/2017/dev_METO_2017/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