New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8396 – NEMO

Changeset 8396


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/CONFIG/GYRE_XIOS/EXP00/namelist_cfg

    r6304 r8396  
    192192!----------------------------------------------------------------------- 
    193193   nn_eos      =   0       !  type of equation of state and Brunt-Vaisala frequency 
     194   ln_useCT    = .false.   ! use of Conservative Temp. ==> surface CT converted in Pot. Temp. in sbcssm 
    194195/ 
    195196!----------------------------------------------------------------------- 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r8353 r8396  
    9494      ! 
    9595      IF( nn_timing == 1 )  CALL timing_start('trc_sms_cfc') 
     96 
     97      IF(lwp) WRITE(numout,*) 
     98      IF(lwp) WRITE(numout,*) ' trc_sms_cfc:  CFC model' 
     99      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    96100      ! 
    97101      ALLOCATE( zpatm(jphem,jp_cfc), STAT=ierr ) 
     
    190194      ! 
    191195      IF( lk_iomput ) THEN 
     196         jl = 0 
    192197         DO jn = jp_cfc0, jp_cfc1 
    193             CALL iom_put( 'qtr_'//TRIM(ctrcnm(jn)) , qtr_cfc (:,:,jn) ) 
    194             CALL iom_put( 'qint_'//TRIM(ctrcnm(jn)), qint_cfc(:,:,jn) ) 
     198            jl = jl + 1 
     199            CALL iom_put( 'qtr_'//TRIM(ctrcnm(jn)) , qtr_cfc (:,:,jl) ) 
     200            CALL iom_put( 'qint_'//TRIM(ctrcnm(jn)), qint_cfc(:,:,jl) ) 
    195201         ENDDO 
    196202      ELSE 
Note: See TracChangeset for help on using the changeset viewer.