Changeset 1518
- Timestamp:
- 08/01/11 11:31:48 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/fliocom.f90
r1378 r1518 2350 2350 !- 2351 2351 IF (l_dbg) THEN 2352 WRITE( *,'(" flioopfd - dimensions :",/,(5(1X,I10),:))') &2352 WRITE(ipslout,'(" flioopfd - dimensions :",/,(5(1X,I10),:))') & 2353 2353 & nw_dl(:,f_i) 2354 2354 WRITE(ipslout,*) "<-flioopfd" … … 2702 2702 !- 2703 2703 IF (l_dbg) THEN 2704 WRITE( *,'(" fliogstc - dimensions :",/,(5(1X,I10),:))') &2704 WRITE(ipslout,'(" fliogstc - dimensions :",/,(5(1X,I10),:))') & 2705 2705 & m_x,m_y,m_z,m_t 2706 2706 ENDIF … … 4392 4392 ENDIF 4393 4393 !- 4394 WRITE ( *,*) "---"4395 WRITE ( *,*) "--- File '",TRIM(f_n),"'"4396 WRITE ( *,*) "---"4394 WRITE (ipslout,*) "---" 4395 WRITE (ipslout,*) "--- File '",TRIM(f_n),"'" 4396 WRITE (ipslout,*) "---" 4397 4397 !- 4398 4398 CALL flio_inf & … … 4401 4401 & nn_idm=n_idim,nn_ldm=n_ldim,cc_ndm=c_ndim,nn_aid=n_ai) 4402 4402 !- 4403 WRITE ( *,*) 'External model identifier : ',f_e4404 WRITE ( *,*) 'Number of dimensions : ',n_dims4405 WRITE ( *,*) 'Number of variables : ',n_vars4406 WRITE ( *,*) 'ID unlimited : ',i_unlm4407 !- 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 :' 4410 4410 IF (n_ai(k_lon) > 0) THEN 4411 WRITE ( *,*) 'x axis : ',n_ai(k_lon)4411 WRITE (ipslout,*) 'x axis : ',n_ai(k_lon) 4412 4412 ELSE 4413 WRITE ( *,*) 'x axis : NONE'4413 WRITE (ipslout,*) 'x axis : NONE' 4414 4414 ENDIF 4415 4415 IF (n_ai(k_lat) > 0) THEN 4416 WRITE ( *,*) 'y axis : ',n_ai(k_lat)4416 WRITE (ipslout,*) 'y axis : ',n_ai(k_lat) 4417 4417 ELSE 4418 WRITE ( *,*) 'y axis : NONE'4418 WRITE (ipslout,*) 'y axis : NONE' 4419 4419 ENDIF 4420 4420 IF (n_ai(k_lev) > 0) THEN 4421 WRITE ( *,*) 'z axis : ',n_ai(k_lev)4421 WRITE (ipslout,*) 'z axis : ',n_ai(k_lev) 4422 4422 ELSE 4423 WRITE ( *,*) 'z axis : NONE'4423 WRITE (ipslout,*) 'z axis : NONE' 4424 4424 ENDIF 4425 4425 IF (n_ai(k_tim) > 0) THEN 4426 WRITE ( *,*) 't axis : ',n_ai(k_tim)4426 WRITE (ipslout,*) 't axis : ',n_ai(k_tim) 4427 4427 ELSE 4428 WRITE ( *,*) 't axis : NONE'4429 ENDIF 4430 !- 4431 WRITE ( *,*) "---"4432 WRITE ( *,*) 'Number of global attributes : ',n_atts4428 WRITE (ipslout,*) 't axis : NONE' 4429 ENDIF 4430 !- 4431 WRITE (ipslout,*) "---" 4432 WRITE (ipslout,*) 'Number of global attributes : ',n_atts 4433 4433 DO k_n=1,n_atts 4434 4434 i_rc = NF90_INQ_ATTNAME(f_e,NF90_GLOBAL,k_n,c_name) … … 4440 4440 ALLOCATE(tma_i(l_ea)) 4441 4441 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),:))') & 4443 4443 & TRIM(c_name),tma_i(1:l_ea) 4444 4444 DEALLOCATE(tma_i) … … 4451 4451 ALLOCATE(tma_r(l_ea)) 4452 4452 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),:))') & 4454 4454 & TRIM(c_name),tma_r(1:l_ea) 4455 4455 DEALLOCATE(tma_r) … … 4467 4467 DO i_n=1,nb_fd_mx 4468 4468 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) 4473 4473 ENDIF 4474 4474 ENDDO … … 4477 4477 i_rc = NF90_INQUIRE_VARIABLE(f_e,i_n, & 4478 4478 & 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_n4482 WRITE ( *,*) "Number of dimensions : ",n_dims4479 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 4483 4483 IF (n_dims > 0) THEN 4484 WRITE ( *,*) "Dimensions ID's : ",idimid(1:n_dims)4485 ENDIF 4486 WRITE ( *,*) "Number of attributes : ",n_atts4484 WRITE (ipslout,*) "Dimensions ID's : ",idimid(1:n_dims) 4485 ENDIF 4486 WRITE (ipslout,*) "Number of attributes : ",n_atts 4487 4487 DO k_n=1,n_atts 4488 4488 i_rc = NF90_INQ_ATTNAME(f_e,i_n,k_n,c_name) … … 4494 4494 ALLOCATE(tma_i(l_ea)) 4495 4495 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),:))') & 4497 4497 & TRIM(c_name),tma_i(1:l_ea) 4498 4498 DEALLOCATE(tma_i) … … 4505 4505 ALLOCATE(tma_r(l_ea)) 4506 4506 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),:))') & 4508 4508 & TRIM(c_name),tma_r(1:l_ea) 4509 4509 DEALLOCATE(tma_r) … … 4519 4519 ENDDO 4520 4520 ENDDO 4521 WRITE ( *,*) "---"4521 WRITE (ipslout,*) "---" 4522 4522 !- 4523 4523 i_rc = NF90_CLOSE(f_e)
Note: See TracChangeset
for help on using the changeset viewer.