Ignore:
Timestamp:
2011-06-27T11:54:00+02:00 (10 years ago)
Author:
cetlod
Message:

Bug correction in NEMO/OFFLINE, see ticket #841

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

    r2715 r2787  
    1515   USE oce_trc 
    1616   USE trc 
     17   USE trcsms_my_trc 
    1718 
    1819   IMPLICIT NONE 
     
    3839 
    3940      !                       ! Allocate MY_TRC arrays 
    40       IF( sms_lobster_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 
    41  
    42       CALL trc_ctl_my_trc     ! Control consitency 
     41      IF( trc_sms_my_trc_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 
    4342 
    4443      IF(lwp) WRITE(numout,*) 
     
    4948      ! 
    5049   END SUBROUTINE trc_ini_my_trc 
    51  
    52  
    53    SUBROUTINE trc_ctl_my_trc 
    54       !!---------------------------------------------------------------------- 
    55       !!                     ***  ROUTINE trc_ctl_pisces  *** 
    56       !! 
    57       !! ** Purpose :   control the cpp options, namelist and files  
    58       !!---------------------------------------------------------------------- 
    59       INTEGER :: jl, jn 
    60       !!---------------------------------------------------------------------- 
    61       ! 
    62       IF(lwp) WRITE(numout,*) 
    63       IF(lwp) WRITE(numout,*) ' use COLOR tracer ' 
    64       ! 
    65       DO jl = 1, jp_my_trc 
    66          jn = jp_myt0 + jl - 1 
    67          WRITE( ctrcnm(jn),'(a,i2.2)' ) 'CLR', jn 
    68          ctrcnl(jn)='Color concentration' 
    69          ctrcun(jn)='N/A' 
    70       END DO 
    71       ! 
    72    END SUBROUTINE trc_ctl_my_trc 
    7350 
    7451#else 
Note: See TracChangeset for help on using the changeset viewer.