Changeset 5076
- Timestamp:
- Jul 19, 2024, 10:45:44 AM (7 weeks ago)
- Location:
- LMDZ6/trunk/libf/phylmdiso
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/limit_read_mod.F90
r5075 r5076 275 275 USE surface_data, ONLY : type_ocean, ok_veget 276 276 USE lmdz_netcdf, ONLY:nf90_noerr,nf90_close,nf90_get_var,nf90_inq_varid,nf90_nowrite,& 277 nf90_inq_dimid,nf90_inquire_dimension,nf90_open 277 nf90_inq_dimid,nf90_inquire_dimension,nf90_open,nf90_get_att,nf90_inquire 278 278 USE indice_sol_mod 279 279 #ifdef ISO -
LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90
r5075 r5076 539 539 IMPLICIT NONE 540 540 541 include "netcdf.inc"542 543 541 INTEGER, INTENT (IN) :: klon 544 542 REAL, INTENT (IN) :: phy_nat(klon, 360) … … 593 591 USE mod_phys_lmdz_transfert_para, ONLY: gather 594 592 USE phys_cal_mod, ONLY: year_len 593 USE lmdz_netcdf, ONLY:nf_clobber,nf_close,nf_noerr,nf_strerror,nf_put_att_text,nf_def_var,& 594 nf_def_dim,nf_create,nf90_put_var,nf_unlimited,nf_global,nf_64bit_offset,nf90_format,& 595 nf_enddef 595 596 IMPLICIT NONE 596 include "netcdf.inc"597 597 598 598 INTEGER, INTENT (IN) :: klon … … 675 675 ! write the 'times' 676 676 DO k = 1, year_len 677 ierr = nf90_put_var(nid, id_tim, k, k)677 ierr = nf90_put_var(nid, id_tim, k, [k]) 678 678 IF (ierr/=nf_noerr) THEN 679 679 WRITE (*, *) 'writelim error with temps(k),k=', k
Note: See TracChangeset
for help on using the changeset viewer.