Changeset 3603 for trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90
- Timestamp:
- Jan 28, 2025, 5:16:15 PM (9 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90
r3602 r3603 181 181 ! Close the NetCDF file 182 182 call error_msg(nf90_close(fID),"close",filename1) 183 write(*,*) ' "'//filename1//'" processed!'183 write(*,*) '> "'//filename1//'" processed!' 184 184 185 185 !------------------------------- Year 2 -------------------------------- … … 445 445 ! Close the NetCDF file 446 446 call error_msg(nf90_close(fID),"close",filename2) 447 write(*,*) '" '//filename2//'" processed!'447 write(*,*) '"> '//filename2//'" processed!' 448 448 449 449 END SUBROUTINE read_data_PCM
Note: See TracChangeset
for help on using the changeset viewer.