Changeset 1525 for IOIPSL


Ignore:
Timestamp:
08/09/11 10:14:05 (13 years ago)
Author:
mmaipsl
Message:

Keep name of each history file.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r1517 r1525  
    123123!-NETCDF IDs for file 
    124124  INTEGER :: ncfid=-1 
     125!-Name of the file 
     126  CHARACTER(LEN=120) :: name 
    125127!-Time variables 
    126128  INTEGER :: itau0=0 
     
    441443    W_F(idf)%dom_id_svg = domain_id 
    442444  ENDIF 
     445  W_F(idf)%name = TRIM(nc_name) 
    443446  W_F(idf)%ncfid = nfid 
    444447  IF ( (k_typ == 1).OR.(k_typ == 2) ) THEN 
     
    22772280      ENDIF 
    22782281      varseq_err(idf) = varseq_err(idf)+1 
     2282      IF (l_dbg) & 
     2283           WRITE(ipslout,*) "Error history file ",W_F(idf)%name," names : ", & 
     2284 &           TRIM(W_F(idf)%W_V(idv)%v_name),TRIM(pvarname)," id : ",idv 
    22792285    ELSE 
    22802286!- 
Note: See TracChangeset for help on using the changeset viewer.