- Timestamp:
- 04/20/11 11:30:59 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/errioipsl.f90
r759 r1376 10 10 PRIVATE 11 11 !- 12 PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg 13 !- 14 INTEGER :: n_l=6, ilv_cur=0, ilv_max=012 PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg, ipslout 13 !- 14 INTEGER :: ipslout=6, ilv_cur=0, ilv_max=0 15 15 LOGICAL :: ioipsl_debug=.FALSE., lact_mode=.TRUE. 16 16 !- … … 39 39 !--------------------------------------------------------------------- 40 40 IF (PRESENT(old_number)) THEN 41 old_number = n_l41 old_number = ipslout 42 42 ENDIF 43 43 IF (PRESENT(new_number)) THEN 44 n_l= new_number44 ipslout = new_number 45 45 ENDIF 46 46 !--------------------- … … 76 76 ilv_cur = plev 77 77 ilv_max = MAX(ilv_max,plev) 78 WRITE( n_l,'(/,A," ",A)') TRIM(pemsg(plev)),TRIM(pcname)79 WRITE( n_l,'(3(" --> ",A,/))') TRIM(pstr1),TRIM(pstr2),TRIM(pstr3)78 WRITE(ipslout,'(/,A," ",A)') TRIM(pemsg(plev)),TRIM(pcname) 79 WRITE(ipslout,'(3(" --> ",A,/))') TRIM(pstr1),TRIM(pstr2),TRIM(pstr3) 80 80 ENDIF 81 81 IF ( (plev == 3).AND.lact_mode) THEN 82 WRITE( n_l,'("Fatal error from IOIPSL. STOP in ipslerr with code")')82 WRITE(ipslout,'("Fatal error from IOIPSL. STOP in ipslerr with code")') 83 83 STOP 1 84 84 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.