Changeset 8841 for branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

Timestamp:

2017-11-29T05:08:05+01:00 (6 years ago)

Author:

deazer

Message:

Bring in Trunk Changes at version 8814
This revision wont run as is, requires next revision with merged changes
This revision serves as a reference point to what changes from the trunk at brought in by the merge
in the next revision

File:

• branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (1 diff)

branches/UKMO/ROMS_WAD_7832/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