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

Changeset 6644 for branches/NERC


Ignore:
Timestamp:
2016-05-31T13:57:05+02:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 31-05-2016 -- modif trcini to avoid merge conflict with GO6_package branch

File:
1 edited

Legend:

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

    r6230 r6644  
    157157        IF( ln_trcdta .AND. nb_trcdta > 0 ) THEN  ! Initialisation of tracer from a file that may also be used for damping 
    158158            ! 
    159 #if defined key_medusa 
    160             IF(lwp) WRITE(numout,*) 'AXY: calling wrk_alloc' 
    161             IF(lwp) CALL flush(numout) 
    162 #endif 
    163159            CALL wrk_alloc( jpi, jpj, jpk, ztrcdta )    ! Memory allocation 
    164160            ! 
     
    182178               ENDIF 
    183179            ENDDO 
    184 #if defined key_medusa 
    185             IF(lwp) WRITE(numout,*) 'AXY: calling wrk_dealloc' 
    186             IF(lwp) CALL flush(numout) 
    187 #endif 
    188180            CALL wrk_dealloc( jpi, jpj, jpk, ztrcdta ) 
    189181        ENDIF 
Note: See TracChangeset for help on using the changeset viewer.