Changeset 1049 for LMDZ4/trunk/libf

Timestamp:

Nov 7, 2008, 4:51:21 PM (16 years ago)

Author:

lmdzadmin

Message:

Petit oubli endif
AC/IM

File:

• LMDZ4/trunk/libf/dyn3dpar/guide_p.F (modified) (1 diff)

LMDZ4/trunk/libf/dyn3dpar/guide_p.F

@@ -228 +228 @@
 c lecture d'un fichier netcdf pour determiner le nombre de niveaux
          IF (mpi_rank==0) THEN
-         if (guide_modele) then
-           if (ncidpl.eq.-99) ncidpl=NCOPN('apbp.nc',NCNOWRIT,rcod)
-         else   
-         if (guide_u) then
-           if (ncidpl.eq.-99) ncidpl=NCOPN('u.nc',NCNOWRIT,rcod)
-         endif
-c
-         if (guide_v) then
-           if (ncidpl.eq.-99) ncidpl=NCOPN('v.nc',NCNOWRIT,rcod)
-         endif
-c
-         if (guide_T) then
-           if (ncidpl.eq.-99) ncidpl=NCOPN('T.nc',NCNOWRIT,rcod)
-         endif
-c
-         if (guide_Q) then
-           if (ncidpl.eq.-99) ncidpl=NCOPN('hur.nc',NCNOWRIT,rcod)
-         endif
-c
-         endif 
+          if (guide_modele) then
+            if (ncidpl.eq.-99) ncidpl=NCOPN('apbp.nc',NCNOWRIT,rcod)
+          else  
+           if (guide_u) then
+            if (ncidpl.eq.-99) ncidpl=NCOPN('u.nc',NCNOWRIT,rcod)
+          endif
+c
+          if (guide_v) then
+            if (ncidpl.eq.-99) ncidpl=NCOPN('v.nc',NCNOWRIT,rcod)
+          endif
+c
+          if (guide_T) then
+            if (ncidpl.eq.-99) ncidpl=NCOPN('T.nc',NCNOWRIT,rcod)
+          endif
+c
+          if (guide_Q) then
+            if (ncidpl.eq.-99) ncidpl=NCOPN('hur.nc',NCNOWRIT,rcod)
+          endif
+c
+          endif  !guide_modele
+         endif  !mpi_rank
          if (ncep) then
           status=NF_INQ_DIMID(ncidpl,'LEVEL',rid)