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 6207 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2016-01-04T19:14:22+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 04-01-2016 -- debugg Idtra sms

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

    r6206 r6207  
    143143            &                    'at it= ', kt,' date= ', ndastp 
    144144         IF(lwp) WRITE(numout,*) '~~~~' 
    145          DO jn = jp_idtra0, jp_idtra1 
    146             CALL iom_rstput( kt, nitrst, numrtw, 'qint_IDTRA', qint_idtra(:,:,jn) ) 
    147          END DO 
     145         !!DO jn = jp_idtra0, jp_idtra1 
     146            CALL iom_rstput( kt, nitrst, numrtw, 'qint_IDTRA', qint_idtra(:,:,1) ) 
     147         !!END DO 
     148# if defined key_debug_medusa 
     149         IF(lwp) WRITE(numout,*) '   IDTRA - writing diag-restart - DONE trc_sms_idtra -- ' 
     150         CALL flush(numout) 
     151# endif 
    148152      ENDIF 
    149153      ! 
     
    160164      END IF 
    161165      ! 
     166# if defined key_debug_medusa 
     167      IF(lwp) WRITE(numout,*) '   IDTRA - writing diag - DONE trc_sms_idtra -- ' 
     168      CALL flush(numout) 
     169# endif 
     170      ! 
    162171      IF( l_trdtrc ) THEN 
     172# if defined key_debug_medusa 
     173      IF(lwp) WRITE(numout,*) '   IDTRA - writing trends - trc_sms_idtra -- ' 
     174      CALL flush(numout) 
     175# endif 
    163176          DO jn = jp_idtra0, jp_idtra1 
    164177            CALL trd_trc( tra(:,:,:,jn), jn, jptra_sms, kt )   ! save trends 
    165178          END DO 
     179# if defined key_debug_medusa 
     180      IF(lwp) WRITE(numout,*) '   IDTRA - writing trends - DONE trc_sms_idtra -- ' 
     181      CALL flush(numout) 
     182# endif 
    166183      END IF 
    167184      ! 
Note: See TracChangeset for help on using the changeset viewer.