Changeset 2659 for branches

Timestamp:

2011-03-04T19:20:39+01:00 (13 years ago)

Author:

trackstand2

Message:

Fixed bug in call to ctl_warn in traldf

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

@@ -263 +263 @@
       !                              ! allocate trabbl arrays
       ALLOCATE( t0_ldf(jpi,jpj,jpk) , s0_ldf(jpi,jpj,jpk) , STAT=ierr )
-      IF( lk_mpp    )   CALL ctl_warn( ierr )
+      IF( lk_mpp    )   CALL ctl_warn( 'ldf_ano : unable to allocate arrays' )
       IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'ldf_ano : unable to allocate arrays' )