Changeset 6058 for IOIPSL/tags
- Timestamp:
- 02/10/22 13:44:36 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/tags/v2_2_5/src/flincom.f90
r4863 r6058 377 377 REAL, PARAMETER :: eps = 1.e-4 378 378 !- 379 INTEGER :: iret, vid, fid, nbdim, i, iilast, jjlast379 INTEGER :: iret, nberr, vid, fid, nbdim, i, iilast, jjlast 380 380 INTEGER :: gdtt_id, old_id, iv, gdtmaf_id 381 381 CHARACTER(LEN=250) :: name … … 653 653 ELSE IF (old_id > 0) THEN 654 654 iret = NF90_GET_ATT (fid, NF90_GLOBAL, 'delta_tstep_sec', dt) 655 nberr = 0 655 656 iret = NF90_GET_ATT (fid, NF90_GLOBAL, 'day0', r_day) 657 IF (iret /= NF90_NOERR) nberr=nberr+1 656 658 iret = NF90_GET_ATT (fid, NF90_GLOBAL, 'sec0', sec) 659 IF (iret /= NF90_NOERR) nberr=nberr+1 657 660 iret = NF90_GET_ATT (fid, NF90_GLOBAL, 'year0', r_year) 661 IF (iret /= NF90_NOERR) nberr=nberr+1 658 662 iret = NF90_GET_ATT (fid, NF90_GLOBAL, 'month0', r_month) 659 !----- 660 day = INT(r_day) 661 month = INT(r_month) 662 year = INT(r_year) 663 !----- 664 CALL ymds2ju (year, month, day, sec, date0) 663 IF (iret /= NF90_NOERR) nberr=nberr+1 664 665 IF (nberr == 0) THEN 666 day = INT(r_day) 667 month = INT(r_month) 668 year = INT(r_year) 669 670 CALL ymds2ju (year, month, day, sec, date0) 671 ELSE 672 WRITE(*,*) 'Subroutine : flinopen_work ; time axis missing or not recognized in file', filename 673 ENDIF 674 665 675 ENDIF 666 676 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.