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 6241 for branches/NERC – NEMO

Changeset 6241 for branches/NERC


Ignore:
Timestamp:
2016-01-13T16:55:23+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 13-01-2016 -- MEDUSA debugg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r6234 r6241  
    6666                                CALL trc_sbc( kstp )            ! surface boundary condition 
    6767# if defined key_debug_medusa 
    68          IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_sbc at kt =', kt 
     68         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_sbc at kt =', kstp 
    6969         CALL trc_rst_tra_stat 
    7070         CALL flush(numout) 
     
    7575                                CALL trc_adv( kstp )            ! horizontal & vertical advection  
    7676# if defined key_debug_medusa 
    77          IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kt 
     77         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kstp 
    7878         CALL trc_rst_tra_stat 
    7979         CALL flush(numout) 
     
    8787                                CALL trc_zdf( kstp )            ! vertical mixing and after tracer fields 
    8888# if defined key_debug_medusa 
    89          IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kt 
     89         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kstp 
    9090         CALL trc_rst_tra_stat 
    9191         CALL flush(numout) 
     
    9393                                CALL trc_nxt( kstp )            ! tracer fields at next time step      
    9494# if defined key_debug_medusa 
    95          IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_nxt at kt =', kt 
     95         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_nxt at kt =', kstp 
    9696         CALL trc_rst_tra_stat 
    9797         CALL flush(numout) 
Note: See TracChangeset for help on using the changeset viewer.