Changeset 8397


Ignore:
Timestamp:
2017-08-01T12:42:46+02:00 (4 years ago)
Author:
lovato
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r7646 r8397  
    180180      ! 
    181181      IF( lk_iomput ) THEN 
     182         jl = 0 
    182183         DO jn = jp_cfc0, jp_cfc1 
    183             CALL iom_put( 'qtr_'//ctrcnm(jn) , qtr_cfc (:,:,jn) ) 
    184             CALL iom_put( 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 
     184            jl = jl + 1 
     185            CALL iom_put( 'qtr_'//TRIM(ctrcnm(jn)) , qtr_cfc (:,:,jl) ) 
     186            CALL iom_put( 'qint_'//TRIM(ctrcnm(jn)), qint_cfc(:,:,jl) ) 
    185187         ENDDO 
    186188      END IF 
Note: See TracChangeset for help on using the changeset viewer.