Changeset 1517

Timestamp:

08/01/11 11:31:05 (13 years ago)

Author:

mmaipsl

Message:

Add new function histglobal_attr to give GLOBAL ATTRIBUTES in history files.
Use this function before histend call.

File:

• IOIPSL/trunk/src/histcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -18 +18 @@
   PRIVATE
   PUBLIC :: histbeg,histdef,histhori,histvert,histend, &
- &          histwrite,histclo,histsync,ioconf_modname
+ &          histwrite,histclo,histsync,ioconf_modname, histglobal_attr
 !---------------------------------------------------------------------
 !- Some confusing vocabulary in this code !
@@ -467 +467 @@
 !-----------------------
 END SUBROUTINE histb_all
+!===
+SUBROUTINE histglobal_attr &
+ & (idf,string_attr,glob_attr)
+!---------------------------------------------------------------------
+!- Definition of GLOBAL attribute for history files.
+!-
+!- INPUT
+!-
+!- idf     : The id of the file to which the grid should be added
+!- string_attr : name of the global attribute to be added
+!- glob_attr : global_attribute to be added
+!---------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,INTENT(IN) :: idf
+  CHARACTER(len=*),INTENT(IN) :: string_attr
+  CHARACTER(len=*),INTENT(IN) :: glob_attr
+
+  INTEGER :: iret,nfid
+  LOGICAL :: l_dbg
+!---------------------------------------------------------------------
+  CALL ipsldbg (old_status=l_dbg)
+
+  nfid = W_F(idf)%ncfid
+  IF (l_dbg) WRITE(ipslout,*) "New global attribute : ",glob_attr
+  iret = NF90_PUT_ATT(nfid,NF90_GLOBAL,string_attr,glob_attr)
+!-----------------------
+END SUBROUTINE histglobal_attr
 !===
 SUBROUTINE histh_reg1d &