Changeset 2298 for LMDZ5/branches/testing/libf/dyn3d/guide_mod.F90

Timestamp:

Jun 14, 2015, 9:13:32 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2237:2291 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3d/guide_mod.F90 (modified) (9 diffs)

LMDZ5/branches/testing/libf/dyn3d/guide_mod.F90

@@ -81 +81 @@
 ! Lecture des parametres:  
 ! ---------------------------------------------
+    call ini_getparam("nudging_parameters_out.txt")
 ! Variables guidees
     CALL getpar('guide_u',.true.,guide_u,'guidage de u')
@@ -109 +110 @@
     CALL getpar('gamma4',.false.,gamma4,'Zone sans rappel elargie')
     CALL getpar('guide_BL',.true.,guide_BL,'guidage dans C.Lim')
-    
+
 ! Sauvegarde du for�age
     CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
@@ -147 +148 @@
     CALL getpar('guide_2D',.false.,guide_2D,'fichier guidage lat-P')
 
+    call fin_getparam
+    
 ! ---------------------------------------------
 ! Determination du nombre de niveaux verticaux
@@ -156 +159 @@
           rcod=nf90_open('apbp.nc',Nf90_NOWRITe, ncidpl)
           if (rcod.NE.NF_NOERR) THEN
-             print *,'Guide: probleme -> pas de fichier apbp.nc'
-             CALL abort_gcm(modname,abort_message,1)
+             CALL abort_gcm(modname, &
+                  'Guide: probleme -> pas de fichier apbp.nc',1)
           endif
        endif
@@ -165 +168 @@
                rcod=nf90_open('u.nc',Nf90_NOWRITe,ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier u.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier u.nc',1)
                endif
            endif
@@ -173 +176 @@
                rcod=nf90_open('v.nc',nf90_nowrite,ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier v.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier v.nc',1)
                endif
            endif
@@ -181 +184 @@
                rcod=nf90_open('T.nc',nf90_nowrite,ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier T.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier T.nc',1)
                endif
            endif
@@ -189 +192 @@
                rcod=nf90_open('hur.nc',nf90_nowrite, ncidpl)
                if (rcod.NE.NF_NOERR) THEN
-                  print *,'Guide: probleme -> pas de fichier hur.nc'
-                  CALL abort_gcm(modname,abort_message,1)
+                  CALL abort_gcm(modname, &
+                       'Guide: probleme -> pas de fichier hur.nc',1)
                endif
            endif
@@ -198 +201 @@
     IF (error.NE.NF_NOERR) error=NF_INQ_DIMID(ncidpl,'PRESSURE',rid)
     IF (error.NE.NF_NOERR) THEN
-        print *,'Guide: probleme lecture niveaux pression'
-        CALL abort_gcm(modname,abort_message,1)
+        CALL abort_gcm(modname,'Guide: probleme lecture niveaux pression',1)
     ENDIF
     error=NF_INQ_DIMLEN(ncidpl,rid,nlevnc)