- Timestamp:
- Nov 14, 2024, 11:53:17 AM (5 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 4 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new_mod.f90
r5325 r5326 1 MODULE condsurfs_new_mod 2 IMPLICIT NONE; PRIVATE 3 PUBLIC condsurfs_new 4 5 CONTAINS 6 7 SUBROUTINE handle_err(status) 8 USE netcdf, ONLY: nf90_noerr, nf90_strerror 9 IMPLICIT NONE 10 11 INTEGER status 12 IF (status/=nf90_noerr) THEN 13 PRINT *, nf90_strerror(status) 14 CALL abort_gcm('condsurfs_new', 'netcdf error', 1) 15 ENDIF 16 END SUBROUTINE handle_err 17 1 18 SUBROUTINE condsurfs_new(jour, edgar, flag_dms, & 2 19 lmt_so2b, lmt_so2h, lmt_so2nff, & … … 273 290 RETURN 274 291 END SUBROUTINE condsurfs_new 292 293 294 END MODULE condsurfs_new_mod -
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5292 r5326 9 9 USE chem_spla_mod_h 10 10 11 IMPLICIT NONE 12 PRIVATE handle_err 13 11 14 REAL,SAVE :: scale_param_ssacc !Scaling parameter for Fine Sea Salt 12 15 REAL,SAVE :: scale_param_sscoa !Scaling parameter for Coarse Sea Salt 13 14 15 16 16 17 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_ind !Scaling parameter for industrial emissions of SO2 … … 426 427 427 428 CONTAINS 428 ! 429 430 SUBROUTINE handle_err(status) 431 USE netcdf, ONLY: nf90_noerr, nf90_strerror 432 IMPLICIT NONE 433 434 INTEGER status 435 IF (status/=nf90_noerr) THEN 436 PRINT *, nf90_strerror(status) 437 CALL abort_gcm('phytrac_spl_mod', 'netcdf error', 1) 438 ENDIF 439 END SUBROUTINE handle_err 440 429 441 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 430 442 SUBROUTINE phytracr_spl_out_init() -
LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90
r5292 r5326 26 26 27 27 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 28 USE paramet_mod_h 28 USE paramet_mod_h 29 USE condsurfs_new_mod, ONLY: condsurfs_new 29 30 IMPLICIT NONE 30 31 -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r5325 r5326 369 369 USE radopt_mod_h 370 370 USE regdim_mod_h 371 USE phys_output_write_spl_mod, ONLY: phys_output_write_spl 372 USE phytracr_spl_mod, ONLY: phytracr_spl_out_init, phytracr_spl 371 373 IMPLICIT NONE 372 374 !>====================================================================== -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5325 r5326 101 101 ! 102 102 USE phytracr_spl_mod, ONLY: phytracr_spl, phytracr_spl_out_init 103 USE phys_output_write_spl_mod 103 USE phys_output_write_spl_mod, ONLY: phys_output_write_spl 104 104 USE phytrac_mod, ONLY : phytrac_init, phytrac 105 105 USE phys_output_write_mod
Note: See TracChangeset
for help on using the changeset viewer.