Changeset 2281 for LMDZ5/trunk/libf/dyn3dmem/vlspltgen_loc.F

Timestamp:

May 18, 2015, 11:09:37 AM (10 years ago)

Author:

crisi

Message:

Camille Risi: corrections of bugs for the isotopic part

File:

• LMDZ5/trunk/libf/dyn3dmem/vlspltgen_loc.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/vlspltgen_loc.F

@@ -193 +193 @@
 
       ! verif temporaire
-      ijb=ij_begin-2*iip1
-      ije=ij_end+2*iip1  
-      if (pole_nord) ijb=ij_begin
-      if (pole_sud)  ije=ij_end  
-      if (ok_iso_verif) then
-           call check_isotopes(zq,ijb,ije,'vlspltgen_loc 191')
+      ijb=ij_begin
+      ije=ij_end  
+      if (ok_iso_verif) then
+        call check_isotopes(zq,ijb,ije,'vlspltgen_loc 191')
       endif !if (ok_iso_verif) then   
 
@@ -459 +457 @@
 c$OMP BARRIER        
 
-          write(*,*) 'vlspltgen_loc 461'
 #ifdef _ADV_HALLO
-          write(*,*) 'vlspltgen_loc 462'
           call vlz_loc(zq,pente_max,zm,mw,
      &               ij_begin+2*iip1,ij_end-2*iip1,iq)
@@ -477 +473 @@
 
 c$OMP BARRIER
+      write(*,*) 'vlspltgen_loc 477'
 c$OMP MASTER
       call VTb(VTHallo)