Changeset 1518 for IOIPSL


Ignore:
Timestamp:
08/01/11 11:31:48 (13 years ago)
Author:
mmaipsl
Message:

Use ipslout unit to print all messages in fliocom.

File:
1 edited

Legend:

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

    r1378 r1518  
    23502350!- 
    23512351  IF (l_dbg) THEN 
    2352     WRITE(*,'("   flioopfd - dimensions :",/,(5(1X,I10),:))') & 
     2352    WRITE(ipslout,'("   flioopfd - dimensions :",/,(5(1X,I10),:))') & 
    23532353 &    nw_dl(:,f_i) 
    23542354    WRITE(ipslout,*) "<-flioopfd" 
     
    27022702!- 
    27032703  IF (l_dbg) THEN 
    2704     WRITE(*,'("   fliogstc - dimensions :",/,(5(1X,I10),:))') & 
     2704    WRITE(ipslout,'("   fliogstc - dimensions :",/,(5(1X,I10),:))') & 
    27052705 &    m_x,m_y,m_z,m_t 
    27062706  ENDIF 
     
    43924392  ENDIF 
    43934393!- 
    4394   WRITE (*,*) "---" 
    4395   WRITE (*,*) "--- File '",TRIM(f_n),"'" 
    4396   WRITE (*,*) "---" 
     4394  WRITE (ipslout,*) "---" 
     4395  WRITE (ipslout,*) "--- File '",TRIM(f_n),"'" 
     4396  WRITE (ipslout,*) "---" 
    43974397!- 
    43984398  CALL flio_inf & 
     
    44014401 &       nn_idm=n_idim,nn_ldm=n_ldim,cc_ndm=c_ndim,nn_aid=n_ai) 
    44024402!- 
    4403   WRITE (*,*) 'External model identifier   : ',f_e 
    4404   WRITE (*,*) 'Number of dimensions        : ',n_dims 
    4405   WRITE (*,*) 'Number of variables         : ',n_vars 
    4406   WRITE (*,*) 'ID unlimited                : ',i_unlm 
    4407 !- 
    4408   WRITE (*,*) "---" 
    4409   WRITE (*,*) 'Presumed axis dimensions identifiers :' 
     4403  WRITE (ipslout,*) 'External model identifier   : ',f_e 
     4404  WRITE (ipslout,*) 'Number of dimensions        : ',n_dims 
     4405  WRITE (ipslout,*) 'Number of variables         : ',n_vars 
     4406  WRITE (ipslout,*) 'ID unlimited                : ',i_unlm 
     4407!- 
     4408  WRITE (ipslout,*) "---" 
     4409  WRITE (ipslout,*) 'Presumed axis dimensions identifiers :' 
    44104410  IF (n_ai(k_lon) > 0) THEN 
    4411     WRITE (*,*) 'x axis : ',n_ai(k_lon) 
     4411    WRITE (ipslout,*) 'x axis : ',n_ai(k_lon) 
    44124412  ELSE 
    4413     WRITE (*,*) 'x axis : NONE' 
     4413    WRITE (ipslout,*) 'x axis : NONE' 
    44144414  ENDIF 
    44154415  IF (n_ai(k_lat) > 0) THEN 
    4416     WRITE (*,*) 'y axis : ',n_ai(k_lat) 
     4416    WRITE (ipslout,*) 'y axis : ',n_ai(k_lat) 
    44174417  ELSE 
    4418     WRITE (*,*) 'y axis : NONE' 
     4418    WRITE (ipslout,*) 'y axis : NONE' 
    44194419  ENDIF 
    44204420  IF (n_ai(k_lev) > 0) THEN 
    4421     WRITE (*,*) 'z axis : ',n_ai(k_lev) 
     4421    WRITE (ipslout,*) 'z axis : ',n_ai(k_lev) 
    44224422  ELSE 
    4423     WRITE (*,*) 'z axis : NONE' 
     4423    WRITE (ipslout,*) 'z axis : NONE' 
    44244424  ENDIF 
    44254425  IF (n_ai(k_tim) > 0) THEN 
    4426     WRITE (*,*) 't axis : ',n_ai(k_tim) 
     4426    WRITE (ipslout,*) 't axis : ',n_ai(k_tim) 
    44274427  ELSE 
    4428     WRITE (*,*) 't axis : NONE' 
    4429   ENDIF 
    4430 !- 
    4431   WRITE (*,*) "---" 
    4432   WRITE (*,*) 'Number of global attributes : ',n_atts 
     4428    WRITE (ipslout,*) 't axis : NONE' 
     4429  ENDIF 
     4430!- 
     4431  WRITE (ipslout,*) "---" 
     4432  WRITE (ipslout,*) 'Number of global attributes : ',n_atts 
    44334433  DO k_n=1,n_atts 
    44344434    i_rc = NF90_INQ_ATTNAME(f_e,NF90_GLOBAL,k_n,c_name) 
     
    44404440        ALLOCATE(tma_i(l_ea)) 
    44414441        i_rc = NF90_GET_ATT(f_e,NF90_GLOBAL,c_name,tma_i) 
    4442         WRITE (*,'("    ",A," :",/,(5(1X,I10),:))') & 
     4442        WRITE (ipslout,'("    ",A," :",/,(5(1X,I10),:))') & 
    44434443 &        TRIM(c_name),tma_i(1:l_ea) 
    44444444        DEALLOCATE(tma_i) 
     
    44514451        ALLOCATE(tma_r(l_ea)) 
    44524452        i_rc = NF90_GET_ATT(f_e,NF90_GLOBAL,c_name,tma_r) 
    4453         WRITE (*,'("    ",A," :",/,(5(1X,1PE11.3),:))') & 
     4453        WRITE (ipslout,'("    ",A," :",/,(5(1X,1PE11.3),:))') & 
    44544454 &        TRIM(c_name),tma_r(1:l_ea) 
    44554455        DEALLOCATE(tma_r) 
     
    44674467  DO i_n=1,nb_fd_mx 
    44684468    IF (n_idim(i_n) > 0) THEN 
    4469       WRITE (*,*) "---" 
    4470       WRITE (*,*) 'Dimension id   : ',n_idim(i_n) 
    4471       WRITE (*,*) 'Dimension name : ',TRIM(c_ndim(i_n)) 
    4472       WRITE (*,*) 'Dimension size : ',n_ldim(i_n) 
     4469      WRITE (ipslout,*) "---" 
     4470      WRITE (ipslout,*) 'Dimension id   : ',n_idim(i_n) 
     4471      WRITE (ipslout,*) 'Dimension name : ',TRIM(c_ndim(i_n)) 
     4472      WRITE (ipslout,*) 'Dimension size : ',n_ldim(i_n) 
    44734473    ENDIF 
    44744474  ENDDO 
     
    44774477    i_rc = NF90_INQUIRE_VARIABLE(f_e,i_n, & 
    44784478 &           name=c_name,ndims=n_dims,dimids=idimid,nAtts=n_atts) 
    4479     WRITE (*,*) "---" 
    4480     WRITE (*,*) "Variable name        : ",TRIM(c_name) 
    4481     WRITE (*,*) "Variable identifier  : ",i_n 
    4482     WRITE (*,*) "Number of dimensions : ",n_dims 
     4479    WRITE (ipslout,*) "---" 
     4480    WRITE (ipslout,*) "Variable name        : ",TRIM(c_name) 
     4481    WRITE (ipslout,*) "Variable identifier  : ",i_n 
     4482    WRITE (ipslout,*) "Number of dimensions : ",n_dims 
    44834483    IF (n_dims > 0) THEN 
    4484       WRITE (*,*) "Dimensions ID's      : ",idimid(1:n_dims) 
    4485     ENDIF 
    4486     WRITE (*,*) "Number of attributes : ",n_atts 
     4484      WRITE (ipslout,*) "Dimensions ID's      : ",idimid(1:n_dims) 
     4485    ENDIF 
     4486    WRITE (ipslout,*) "Number of attributes : ",n_atts 
    44874487    DO k_n=1,n_atts 
    44884488      i_rc = NF90_INQ_ATTNAME(f_e,i_n,k_n,c_name) 
     
    44944494          ALLOCATE(tma_i(l_ea)) 
    44954495          i_rc = NF90_GET_ATT(f_e,i_n,c_name,tma_i) 
    4496           WRITE (*,'("    ",A," :",/,(5(1X,I10),:))') & 
     4496          WRITE (ipslout,'("    ",A," :",/,(5(1X,I10),:))') & 
    44974497 &              TRIM(c_name),tma_i(1:l_ea) 
    44984498          DEALLOCATE(tma_i) 
     
    45054505          ALLOCATE(tma_r(l_ea)) 
    45064506          i_rc = NF90_GET_ATT(f_e,i_n,c_name,tma_r) 
    4507           WRITE (*,'("    ",A," :",/,(5(1X,1PE11.3),:))') & 
     4507          WRITE (ipslout,'("    ",A," :",/,(5(1X,1PE11.3),:))') & 
    45084508 &          TRIM(c_name),tma_r(1:l_ea) 
    45094509          DEALLOCATE(tma_r) 
     
    45194519    ENDDO 
    45204520  ENDDO 
    4521   WRITE (*,*) "---" 
     4521  WRITE (ipslout,*) "---" 
    45224522!- 
    45234523  i_rc = NF90_CLOSE(f_e) 
Note: See TracChangeset for help on using the changeset viewer.