Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc.f90
- Timestamp:
- Jul 24, 2024, 2:54:37 PM (8 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc.f90
r5105 r5116 35 35 36 36 ierr = nf90_open ("limitcarbon.nc", nf90_nowrite, nid1) 37 if (ierr/=nf90_noerr) then38 write(6, *)' Pb d''ouverture du fichier limitbc.nc'39 write(6, *)' ierr = ', ierr37 if (ierr/=nf90_noerr) THEN 38 WRITE(6, *)' Pb d''ouverture du fichier limitbc.nc' 39 WRITE(6, *)' ierr = ', ierr 40 40 CALL exit(1) 41 41 endif
Note: See TracChangeset
for help on using the changeset viewer.