Changeset 2281 for LMDZ5/trunk/libf/dyn3dmem/integrd_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/integrd_loc.F (modified) (5 diffs)

LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

@@ -89 +89 @@
       !write(*,*) 'integrd 88: entree, nq=',nq
 c-----------------------------------------------------------------------
-
-        if (ok_iso_verif) then
-           call check_isotopes(q,ijb,ije,'integrd 92')
-        endif !if (ok_iso_verif) then
 
 c$OMP BARRIER     
@@ -168 +164 @@
 c$OMP END MASTER
 c$OMP BARRIER
+        write(*,*) 'integrd 170'
       IF (.NOT. Checksum_all) THEN
         call WriteField_v('int_vcov',vcov)
@@ -197 +194 @@
        
 c
+        write(*,*) 'integrd 200'
 C$OMP MASTER
       if (pole_nord) THEN
@@ -287 +285 @@
 c
 c
+        write(*,*) 'integrd 291'
       IF (pole_nord) THEN
        
@@ -353 +352 @@
         endif !if (ok_iso_verif) then
 
-          !write(*,*) 'integrd 341'
-          CALL qminimum_loc( q, nq, deltap )
-          !write(*,*) 'integrd 343'
+        write(*,*) 'integrd 341'
+        CALL qminimum_loc( q, nq, deltap )
+        write(*,*) 'integrd 343'
 
         if (ok_iso_verif) then