Changeset 2336 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/write_archive.F

Timestamp:

Jun 5, 2020, 9:44:36 AM (5 years ago)

Author:

emillour

Message:

Generic GCM:
Update start2archive/newstart programs to handle recently introduced
non-orographic GW variables in (re-)start files.
EM

File:

• trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/write_archive.F (modified) (10 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/write_archive.F

@@ -37 +37 @@
       implicit none
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "comgeom.h"
-#include "netcdf.inc"
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "netcdf.inc"
 
 c-----------------------------------------------------------------------
@@ -83 +83 @@
 
               write (*,*) "====================="
-              write (*,*) "creation de ",nom
+              write (*,*) "defining ",nom
               call def_var(nid,nom,titre,unite,4,id,varid,ierr)
 
@@ -113 +113 @@
 
            if (ierr.ne.NF_NOERR) then
-              write(*,*) "***** PUT_VAR matter in write_archive"
-              write(*,*) "***** with ",nom," ",nf_STRERROR(ierr)
+              write(*,*) "***** PUT_VAR problem in write_archive"
+              write(*,*) "***** with ",trim(nom)," ",nf_STRERROR(ierr)
               call abort
            endif
@@ -140 +140 @@
           ! define the variable
           write(*,*)"====================="
-          write(*,*)"defining ",nom
+          write(*,*)"defining variable ",trim(nom)
           call def_var(nid,nom,titre,unite,4,id,varid,ierr)
           
@@ -182 +182 @@
           ! define the variable
           write(*,*)"====================="
-          write(*,*)"defining ",nom
+          write(*,*)"defining variable ",trim(nom)
           call def_var(nid,nom,titre,unite,4,id,varid,ierr)
 
@@ -222 +222 @@
 
               write (*,*) "====================="
-              write (*,*) "creation de ",nom
+              write (*,*) "defining variable ",trim(nom)
 
               call def_var(nid,nom,titre,unite,3,id,varid,ierr)
@@ -243 +243 @@
 
            if (ierr.ne.NF_NOERR) then
-              write(*,*) "***** PUT_VAR matter in write_archive"
+              write(*,*) "***** PUT_VAR problem in write_archive"
               write(*,*) "***** with ",nom,nf_STRERROR(ierr)
               call abort
@@ -264 +264 @@
 
               write (*,*) "====================="
-              write (*,*) "creation de ",nom
+              write (*,*) "defining variable ",trim(nom)
 
               call def_var(nid,nom,titre,unite,1,id,varid,ierr)
@@ -279 +279 @@
 #endif
            if (ierr.ne.NF_NOERR) then
-              write(*,*) "***** PUT_VAR matter in write_archive"
+              write(*,*) "***** PUT_VAR problem in write_archive"
               write(*,*) "***** with ",nom,nf_STRERROR(ierr)
               call abort
@@ -289 +289 @@
         endif ! of if (dim.eq.3) else if (dim.eq.-3) ....
 
-      return
       end