Changeset 1376 for IOIPSL


Ignore:
Timestamp:
04/20/11 11:30:59 (14 years ago)
Author:
mmaipsl
Message:

Enhancement : add ipslout number in public list of errioipsl to
give the possiblity to redirect all prints of IOIPSL in the local
process when use with parallelization.
This variable replace old n_l one and can be modify with ipslnlf function.

File:
1 edited

Legend:

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

    r759 r1376  
    1010PRIVATE 
    1111!- 
    12 PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg 
    13 !- 
    14   INTEGER :: n_l=6, ilv_cur=0, ilv_max=0 
     12PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg, ipslout 
     13!- 
     14  INTEGER :: ipslout=6, ilv_cur=0, ilv_max=0 
    1515  LOGICAL :: ioipsl_debug=.FALSE., lact_mode=.TRUE. 
    1616!- 
     
    3939!--------------------------------------------------------------------- 
    4040  IF (PRESENT(old_number)) THEN 
    41     old_number = n_l 
     41    old_number = ipslout 
    4242  ENDIF 
    4343  IF (PRESENT(new_number)) THEN 
    44     n_l = new_number 
     44    ipslout = new_number 
    4545  ENDIF 
    4646!--------------------- 
     
    7676     ilv_cur = plev 
    7777     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) 
    8080   ENDIF 
    8181   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")') 
    8383     STOP 1 
    8484   ENDIF 
Note: See TracChangeset for help on using the changeset viewer.