Changeset 1167 for LMDZ4/branches/LMDZ4-dev/libf

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

Location:

LMDZ4/branches/LMDZ4-dev/libf

Files:

• dyn3d/comvert.h (modified) (1 diff)
• dyn3dpar/guide_p.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/comvert.h

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
-c-----------------------------------------------------------------------
-c   INCLUDE 'comvert.h'
+!-----------------------------------------------------------------------
+!   INCLUDE 'comvert.h'
 
-      COMMON/comvert/ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm) ,
-     ,               pa,preff,nivsigs(llm),nivsig(llm+1)
+      COMMON/comvert/ap(llm+1),bp(llm+1),presnivs(llm),dpres(llm),      &
+     &               pa,preff,nivsigs(llm),nivsig(llm+1)
 
       REAL ap,bp,presnivs,dpres,pa,preff,nivsigs,nivsig
 
-c-----------------------------------------------------------------------
+ !-----------------------------------------------------------------------

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)