Changeset 1167 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p.F

Timestamp:

May 29, 2009, 3:37:46 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Les options de compilation pour g95 et pgf90 avec makegcm FH
une correction dans guide_p.F AJ
LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/guide_p.F (modified) (3 diffs)

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

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine guide_pp(itau,ucov,vcov,teta,q,masse,ps)
@@ -254 +254 @@
 c
           endif  !guide_modele
-         endif  !mpi_rank
+cAJ-b         endif  !mpi_rank
          if (ncep) then
           status=NF_INQ_DIMID(ncidpl,'LEVEL',rid)
@@ -263 +263 @@
          print *,'nlev guide', nlev 
          rcod = nf90_close(ncidpl)
+cAJ-e
+         endif !mpi_rank
+cAJ-e
 c   Lecture du premier etat des reanalyses.
          call Gather_Field(ps,ip1jmp1,1,0)