Changeset 7587

Timestamp:

2017-01-20T16:17:56+01:00 (7 years ago)

Author:

acc

Message:

Branch dev_merge_2016. Added the writing and reading of attributes to the domain configuration (cfg_write and cfg_read in domain.F90). As an example, the domain configuration files now include the cn_cfg and nn_cfg values as attributes

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (3 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -517 +517 @@
       ii = 1
       WRITE(ldtxt(ii),*) '           '                                                    ;   ii = ii+1
-      WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in', TRIM( cn_domcfg ), ' file'   ;   ii = ii+1
+      WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file'   ;   ii = ii+1
       WRITE(ldtxt(ii),*) '~~~~~~~~~~ '                                                    ;   ii = ii+1
       !
@@ -536 +536 @@
          cd_cfg = 'UNKNOWN'
          kk_cfg = -9999999
+                                          !- or they may be present as global attributes 
+                                          !- (netcdf only)  
+         IF( iom_file(inum)%iolib == jpnf90 ) THEN
+            CALL iom_getatt( inum, 'cn_cfg', cd_cfg )  ! returns   !  if not found
+            CALL iom_getatt( inum, 'nn_cfg', kk_cfg )  ! returns -999 if not found
+            IF( TRIM(cd_cfg) .EQ. '!') cd_cfg = 'UNKNOWN'
+            IF( kk_cfg .EQ. -999     ) kk_cfg = -9999999
+         ENDIF
+         !
       ENDIF
       !
@@ -669 +678 @@
       ENDIF
       !
+      ! Add some global attributes ( netcdf only )
+      IF( iom_file(inum)%iolib == jpnf90 ) THEN
+         CALL iom_putatt( inum, 'nn_cfg', nn_cfg )
+         CALL iom_putatt( inum, 'cn_cfg', TRIM(cn_cfg) )
+      ENDIF
+      !
       !                                ! ============================
       !                                !        close the files