Changeset 1487 for LMDZ5/branches/LMDZ5V2.0-dev/libf

Timestamp:

Feb 11, 2011, 4:07:54 PM (14 years ago)

Author:

jghattas

Message:

Corrected type error. Error has been in the code since commit 1482.

File:

• LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/parallel.F90 (modified) (1 diff)

LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/parallel.F90

@@ -211 +211 @@
       if (allocated(jj_begin_para)) deallocate(jj_begin_para)
       if (allocated(jj_end_para))   deallocate(jj_end_para)
-      if (allocated(jj_np_para))    deallocate(jj_nb_para)
+      if (allocated(jj_nb_para))    deallocate(jj_nb_para)
 
       if (type_ocean == 'couple') then