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 2659 – NEMO

Changeset 2659


Ignore:
Timestamp:
2011-03-04T19:20:39+01:00 (12 years ago)
Author:
trackstand2
Message:

Fixed bug in call to ctl_warn in traldf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

    r2633 r2659  
    263263      !                              ! allocate trabbl arrays 
    264264      ALLOCATE( t0_ldf(jpi,jpj,jpk) , s0_ldf(jpi,jpj,jpk) , STAT=ierr ) 
    265       IF( lk_mpp    )   CALL ctl_warn( ierr ) 
     265      IF( lk_mpp    )   CALL ctl_warn( 'ldf_ano : unable to allocate arrays' ) 
    266266      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'ldf_ano : unable to allocate arrays' ) 
    267267 
Note: See TracChangeset for help on using the changeset viewer.