Changeset 2615 for branches

Timestamp:

2011-02-25T17:33:26+01:00 (13 years ago)

Author:

trackstand2

Message:

Fixed typo bugs that prevented compilation

Location:

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2

Files:

• limsbc_2.F90 (modified) (1 diff)
• limwri_2.F90 (modified) (1 diff)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -433 +433 @@
 
       !                                      ! allocate lim_sbc arrays
-      IF( lim_sbc_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'lim_sbc_flx_2 : unable to allocate arrays' )
+      IF( lim_sbc_alloc_2() /= 0 )   CALL ctl_stop( 'STOP', 'lim_sbc_flx_2 : unable to allocate arrays' )
       !
       r1_rdtice = 1._wp / rdt_ice

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

@@ -79 +79 @@
       ALLOCATE( ndex51(jpij), zcmo(jpi,jpj,jpnoumax), STAT=lim_wri_alloc_2)
       !
-      IF( lk_mpp               )   CALL mpp_sum( ierr )
+      IF( lk_mpp               )   CALL mpp_sum( lim_wri_alloc_2 )
       IF( lim_wri_alloc_2 /= 0 )   CALL ctl_warn('lim_wri_alloc_2: failed to allocate array ndex51')
       !