Changeset 1195 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Jun 26, 2009, 11:16:09 AM (15 years ago)

Author:

yann meurdesoif

Message:

Correction : getparam n'etait pas initialise, chaque processeur ecrivait dans le meme fichier 99.fort, le code plantait sur mercure en fin de run lors du close(99) dans leapfrog_p.F

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F (modified) (6 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/leapfrog_p.F

@@ -19 +19 @@
        USE infotrac
        USE guide_p_mod, ONLY : guide_main
+       USE getparam
 
       IMPLICIT NONE
@@ -1259 +1260 @@
       print *, 'Temps CPU ecoule sur la parallelisation :',DiffCpuTime()
       CALL print_filtre_timer
+      call fin_getparam
         call finalize_parallel
 c$OMP END MASTER
@@ -1284 +1286 @@
 
 c$OMP MASTER
+              call fin_getparam
               call finalize_parallel
 c$OMP END MASTER
@@ -1396 +1399 @@
               endif ! of if (planet_type.eq."earth")
 
-              CLOSE(99)
+!              CLOSE(99)
 c$OMP END MASTER
             ENDIF ! of IF (itau.EQ.itaufin)
@@ -1452 +1455 @@
                IF( itau. EQ. itaufinp1 ) then  
 c$OMP MASTER
+                 call fin_getparam
                  call finalize_parallel
 c$OMP END MASTER
@@ -1563 +1567 @@
       END IF ! of IF(.not.purmats)
 c$OMP MASTER
+      call fin_getparam
       call finalize_parallel
 c$OMP END MASTER