Changeset 1525 for IOIPSL/trunk
- Timestamp:
- 08/09/11 10:14:05 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r1517 r1525 123 123 !-NETCDF IDs for file 124 124 INTEGER :: ncfid=-1 125 !-Name of the file 126 CHARACTER(LEN=120) :: name 125 127 !-Time variables 126 128 INTEGER :: itau0=0 … … 441 443 W_F(idf)%dom_id_svg = domain_id 442 444 ENDIF 445 W_F(idf)%name = TRIM(nc_name) 443 446 W_F(idf)%ncfid = nfid 444 447 IF ( (k_typ == 1).OR.(k_typ == 2) ) THEN … … 2277 2280 ENDIF 2278 2281 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 2279 2285 ELSE 2280 2286 !-
Note: See TracChangeset
for help on using the changeset viewer.