Changeset 5270 for LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
- Timestamp:
- Oct 24, 2024, 1:55:38 PM (39 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5233 r5270 4568 4568 USE mod_grid_phy_lmdz 4569 4569 USE mod_phys_lmdz_para 4570 USE netcdf, ONLY: nf90_open, nf90_close, nf90_inq_varid, nf90_nowrite, nf90_noerr, nf90_get_var 4570 4571 IMPLICIT NONE 4571 4572 include "netcdf.inc"4573 4572 4574 4573 CHARACTER*800 filescaleparams … … 4581 4580 integer start(4),count(4), status 4582 4581 ! local 4583 integer debutread,countread4584 4582 CHARACTER*104 varname 4585 4583 CHARACTER*2 aux_2s … … 4587 4585 !$OMP MASTER 4588 4586 IF (is_mpi_root .AND. is_omp_root) THEN 4589 !nci=NCOPN(trim(adjustl(filescaleparams)),NCNOWRIT,rcode) 4590 ierr = NF_OPEN (trim(adjustl(filescaleparams)),NF_NOWRITE, nid) 4591 if (ierr .EQ. NF_NOERR) THEN 4592 debutread=step_sca 4593 countread=1 4587 !nci=nf90_open(trim(adjustl(filescaleparams)),nf90_nowrite,rcode) 4588 ierr = nf90_open (trim(adjustl(filescaleparams)),nf90_nowrite, nid) 4589 if (ierr .EQ. nf90_noerr) THEN 4594 4590 4595 4591 do i=1,nbreg … … 4597 4593 varname= trim(adjustl(paramname))//aux_2s 4598 4594 print *,varname 4599 ierr = NF_INQ_VARID (nid,trim(adjustl(varname)), nvarid) 4600 ierr = NF_GET_VARA_DOUBLE (nid, nvarid, debutread, & 4601 countread, auxreal) 4602 IF (ierr .NE. NF_NOERR) THEN 4595 ierr = nf90_inq_varid(nid,trim(adjustl(varname)), nvarid) 4596 ierr = nf90_get_var(nid, nvarid, auxreal, [step_sca]) 4597 IF (ierr .NE. nf90_noerr) THEN 4603 4598 PRINT*, 'Pb de lecture pour modvalues' 4604 4599 print *,'JE scale_var, step_sca',trim(adjustl(varname)),step_sca … … 4613 4608 enddo 4614 4609 4615 ierr = NF_CLOSE(nid)4610 ierr = nf90_close(nid) 4616 4611 else 4617 4612 print *,'File '//trim(adjustl(filescaleparams))//' not found'
Note: See TracChangeset
for help on using the changeset viewer.