Changeset 8396 for branches

Timestamp:

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

Author:

lovato

Message:

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

Location:

branches/2015/nemo_v3_6_STABLE/NEMOGCM

Files:

• CONFIG/GYRE_XIOS/EXP00/namelist_cfg (modified) (1 diff)
• NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (2 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/CONFIG/GYRE_XIOS/EXP00/namelist_cfg

@@ -192 +192 @@
 !-----------------------------------------------------------------------
    nn_eos      =   0       !  type of equation of state and Brunt-Vaisala frequency
+   ln_useCT    = .false.   ! use of Conservative Temp. ==> surface CT converted in Pot. Temp. in sbcssm
 /
 !-----------------------------------------------------------------------

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

@@ -94 +94 @@
       !
       IF( nn_timing == 1 )  CALL timing_start('trc_sms_cfc')
+
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) ' trc_sms_cfc:  CFC model'
+      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
       !
       ALLOCATE( zpatm(jphem,jp_cfc), STAT=ierr )
@@ -190 +194 @@
       !
       IF( lk_iomput ) THEN
+         jl = 0
          DO jn = jp_cfc0, jp_cfc1
-            CALL iom_put( 'qtr_'//TRIM(ctrcnm(jn)) , qtr_cfc (:,:,jn) )
-            CALL iom_put( 'qint_'//TRIM(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
       ELSE