- Timestamp:
- Nov 1, 2024, 1:05:47 PM (8 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 1 added
- 1 deleted
- 26 edited
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/gcm.f90
r5285 r5310 9 9 USE comdissnew_mod_h 10 10 USE IOIPSL 11 USE wxios! ug Pour les sorties XIOS11 use wxios_mod ! ug Pour les sorties XIOS 12 12 USE filtreg_mod 13 13 USE infotrac, ONLY: nqtot, init_infotrac -
LMDZ6/trunk/libf/dyn3d_common/abort_gcm_NOMODULE.f90
r5309 r5310 1 ! 2 ! $Id: abort_gcm.F 1747 2013-04-23 14:06:30Z lguez $ 3 ! 4 ! 5 ! 1 ! /!\ We can't put this in a module right away with FCM1, as this creates a circular dependency e.g. with wxios through iniprint_mod 2 6 3 SUBROUTINE abort_gcm(modname, message, ierr) 7 8 USE iniprint_mod_h9 USE IOIPSL10 11 USE parallel_lmdz12 13 !14 4 ! Stops the simulation cleanly, closing files and printing various 15 5 ! comments 16 ! 6 17 7 ! Input: modname = name of calling program 18 8 ! message = stuff to print 19 9 ! ierr = severity of situation ( = 0 normal ) 20 10 21 character(len=*), intent(in):: modname 22 integer :: ierr, ierror_mpi 23 character(len=*), intent(in):: message 11 USE IOIPSL, ONLY: histclo, restclo, getin_dump 12 USE wxios_mod, ONLY: using_xios, wxios_close 13 USE mod_phys_lmdz_mpi_data, ONLY: mpi_rank 14 USE lmdz_mpi, ONLY: using_mpi 15 USE mod_const_mpi, ONLY: comm_lmdz 16 USE iniprint_mod_h, ONLY: lunout, prt_level 17 IMPLICIT NONE 24 18 25 write(lunout,*) 'in abort_gcm' 26 !$OMP MASTER 27 call histclo 28 call restclo 29 if (MPI_rank .eq. 0) then 30 call getin_dump 31 endif 32 !$OMP END MASTER 33 ! call histclo(2) 34 ! call histclo(3) 35 ! call histclo(4) 36 ! call histclo(5) 37 write(lunout,*) 'Stopping in ', modname 38 write(lunout,*) 'Reason = ',message 39 if (ierr .eq. 0) then 40 write(lunout,*) 'Everything is cool' 41 else 42 write(lunout,*) 'Houston, we have a problem, ierr = ', ierr 19 CHARACTER(LEN = *), INTENT(IN) :: modname 20 INTEGER, INTENT(IN) :: ierr 21 CHARACTER(LEN = *), INTENT(IN) :: message 43 22 44 if (using_mpi) THEN 45 !$OMP CRITICAL (MPI_ABORT_GCM) 46 call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi) 47 !$OMP END CRITICAL (MPI_ABORT_GCM) 48 else 49 stop 1 50 endif 23 INTEGER :: ierror_mpi 51 24 52 endif 25 WRITE(lunout, *) 'in abort_gcm' 26 27 IF (using_xios) THEN !Fermeture propre de XIOS 28 CALL wxios_close() 29 ENDIF 30 31 !$OMP MASTER 32 CALL histclo 33 CALL restclo 34 IF (mpi_rank == 0) THEN 35 CALL getin_dump 36 ENDIF 37 !$OMP END MASTER 38 WRITE(lunout, *) 'Stopping in ', modname 39 WRITE(lunout, *) 'Reason = ', message 40 IF (ierr == 0) THEN 41 WRITE(lunout, *) 'Everything is cool' 42 IF (.NOT. using_mpi) THEN 43 STOP 44 END IF 45 ELSE 46 WRITE(lunout, *) 'Houston, we have a problem, ierr = ', ierr 47 48 IF (using_mpi) THEN 49 !$OMP CRITICAL (MPI_ABORT_GCM) 50 CALL MPI_ABORT(comm_lmdz, 1, ierror_mpi) 51 !$OMP END CRITICAL (MPI_ABORT_GCM) 52 ELSE 53 STOP 1 54 END IF 55 END IF 53 56 END SUBROUTINE abort_gcm -
LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90
r5267 r5310 19 19 USE mod_prism 20 20 #endif 21 USE wxios, only: wxios_init, using_xios21 use wxios_mod, only: wxios_init, using_xios 22 22 IMPLICIT NONE 23 23 … … 57 57 SUBROUTINE Init_mpi 58 58 USE lmdz_mpi 59 USE wxios, only: wxios_init, using_xios59 use wxios_mod, only: wxios_init, using_xios 60 60 61 61 IMPLICIT NONE -
LMDZ6/trunk/libf/dyn3dmem/mod_xios_dyn3dmem.f90
r5285 r5310 16 16 17 17 USE lmdz_xios 18 USE wxios, ONLY : g_comm18 use wxios_mod, ONLY : g_comm 19 19 CHARACTER(len=100), SAVE :: dyn3d_ctx_name = "LMDZDYN" 20 20 TYPE(xios_context), SAVE :: dyn3d_ctx_handle -
LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90
r5285 r5310 391 391 USE lmdz_mpi 392 392 ! ug Pour les sorties XIOS 393 USE wxios393 use wxios_mod 394 394 USE control_mod, only : ok_dyn_xios 395 395 USE dimensions_mod, ONLY: iim, jjm, llm, ndm -
LMDZ6/trunk/libf/misc/wxios_mod.F90
r5309 r5310 1 1 ! $Id$ 2 2 3 MODULE wxios 3 MODULE wxios_mod 4 4 USE lmdz_xios 5 5 … … 783 783 CALL xios_finalize() 784 784 END SUBROUTINE wxios_close 785 END MODULE wxios 786 785 END MODULE wxios_mod 786 -
LMDZ6/trunk/libf/phydev/iophy.F90
r5267 r5310 36 36 USE ioipsl, only: flio_dom_set 37 37 38 use wxios , only: wxios_domain_param, using_xios38 use wxios_mod, only: wxios_domain_param, using_xios 39 39 implicit none 40 40 real,dimension(klon),intent(in) :: rlon … … 172 172 SUBROUTINE histbeg_phyxios(name,ffreq,lev) 173 173 USE mod_phys_lmdz_para, only: is_using_mpi, is_mpi_root 174 use wxios , only: wxios_add_file174 use wxios_mod, only: wxios_add_file 175 175 IMPLICIT NONE 176 176 -
LMDZ6/trunk/libf/phydev/physiq_mod.F90
r4619 r5310 24 24 25 25 USE lmdz_xios, ONLY: xios_update_calendar, using_xios 26 USE wxios, only: wxios_add_vaxis, wxios_set_cal, wxios_closedef26 use wxios_mod, only: wxios_add_vaxis, wxios_set_cal, wxios_closedef 27 27 USE iophy, ONLY: histwrite_phy 28 28 -
LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90
r5296 r5310 392 392 ! ug Pour les sorties XIOS 393 393 USE lmdz_xios, ONLY: xios_update_calendar, using_xios 394 USE wxios, ONLY: wxios_closedef, missing_val_xios => missing_val394 use wxios_mod, ONLY: wxios_closedef, missing_val_xios => missing_val 395 395 USE phys_cal_mod, ONLY : mth_len 396 396 -
LMDZ6/trunk/libf/phylmd/cosp/cosp_output_mod.F90
r4619 r5310 236 236 USE print_control_mod, ONLY: lunout 237 237 ! ug Pour les sorties XIOS 238 USE wxios238 use wxios_mod 239 239 240 240 IMPLICIT NONE … … 260 260 !!! Variables d'entree 261 261 262 ! ug Variables utilis ées pour récupérer le calendrier pour xios262 ! ug Variables utilis�es pour r�cup�rer le calendrier pour xios 263 263 INTEGER :: x_an, x_mois, x_jour 264 264 REAL :: x_heure -
LMDZ6/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90
r5282 r5310 26 26 USE time_phylmdz_mod, ONLY: itau_phy, start_time, day_step_phy 27 27 USE print_control_mod, ONLY: lunout,prt_level 28 USE wxios, only: wxios_closedef28 use wxios_mod, only: wxios_closedef 29 29 USE lmdz_xios, only: xios_update_calendar, xios_field_is_active, using_xios 30 30 IMPLICIT NONE … … 445 445 USE mod_grid_phy_lmdz, ONLY: nbp_lon 446 446 USE print_control_mod, ONLY: lunout,prt_level 447 USE wxios447 use wxios_mod 448 448 449 449 IMPLICIT NONE … … 506 506 USE mod_grid_phy_lmdz, ONLY: nbp_lon 507 507 USE print_control_mod, ONLY: lunout,prt_level 508 USE wxios508 use wxios_mod 509 509 510 510 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmd/cospv2/lmdz_cosp_output_mod.F90
r4619 r5310 327 327 USE print_control_mod, ONLY: lunout 328 328 ! ug Pour les sorties XIOS 329 USE wxios329 use wxios_mod 330 330 331 331 IMPLICIT NONE … … 347 347 !!! Variables d'entree 348 348 349 ! ug Variables utilis ées pour récupérer le calendrier pour xios349 ! ug Variables utilis�es pour r�cup�rer le calendrier pour xios 350 350 INTEGER :: x_an, x_mois, x_jour 351 351 REAL :: x_heure -
LMDZ6/trunk/libf/phylmd/cospv2/lmdz_cosp_output_write_mod.f90
r5282 r5310 41 41 use mod_cosp, only: cosp_outputs 42 42 43 USE wxios, only: wxios_closedef43 use wxios_mod, only: wxios_closedef 44 44 USE lmdz_xios, only: xios_update_calendar, xios_field_is_active 45 45 IMPLICIT NONE … … 658 658 USE mod_grid_phy_lmdz, ONLY: nbp_lon 659 659 USE print_control_mod, ONLY: lunout,prt_level 660 USE wxios660 use wxios_mod 661 661 662 662 IMPLICIT NONE … … 712 712 USE print_control_mod, ONLY: lunout,prt_level 713 713 714 USE wxios714 use wxios_mod 715 715 716 716 -
LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
r5302 r5310 984 984 END 985 985 986 987 988 SUBROUTINE abort_gcm(modname, message, ierr)989 990 USE IOIPSL991 !992 ! Stops the simulation cleanly, closing files and printing various993 ! comments994 !995 ! Input: modname = name of calling program996 ! message = stuff to print997 ! ierr = severity of situation ( = 0 normal )998 999 character(len=*) modname1000 integer ierr1001 character(len=*) message1002 1003 write(*,*) 'in abort_gcm'1004 call histclo1005 ! call histclo(2)1006 ! call histclo(3)1007 ! call histclo(4)1008 ! call histclo(5)1009 write(*,*) 'out of histclo'1010 write(*,*) 'Stopping in ', modname1011 write(*,*) 'Reason = ',message1012 call getin_dump1013 !1014 if (ierr .eq. 0) then1015 write(*,*) 'Everything is cool'1016 else1017 write(*,*) 'Houston, we have a problem ', ierr1018 endif1019 STOP1020 END1021 986 REAL FUNCTION fq_sat(kelvin, millibar) 1022 987 ! -
LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90
r5271 r5310 94 94 95 95 !======================================================================= 96 SUBROUTINE abort_gcm(modname, message, ierr)97 USE IOIPSL98 ! Stops the simulation cleanly, closing files and printing various99 ! comments100 !=======================================================================101 !102 ! Input: modname = name of calling program103 ! message = stuff to print104 ! ierr = severity of situation ( = 0 normal )105 106 character(len=*) modname107 integer ierr108 character(len=*) message109 110 write(*,*) 'in abort_gcm'111 call histclo112 write(*,*) 'out of histclo'113 write(*,*) 'Stopping in ', modname114 write(*,*) 'Reason = ',message115 call getin_dump116 !117 if (ierr .eq. 0) then118 write(*,*) 'Everything is cool'119 else120 write(*,*) 'Houston, we have a problem ', ierr121 endif122 STOP123 END124 125 !=======================================================================126 96 SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi) 127 97 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmd/iophy.F90
r5282 r5310 45 45 USE ioipsl, ONLY: flio_dom_set 46 46 47 use wxios , ONLY: wxios_domain_param, wxios_domain_param_unstructured, wxios_context_init, using_xios47 use wxios_mod, ONLY: wxios_domain_param, wxios_domain_param_unstructured, wxios_context_init, using_xios 48 48 IMPLICIT NONE 49 49 REAL,DIMENSION(klon),INTENT(IN) :: rlon … … 213 213 USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat 214 214 USE ioipsl, ONLY: histbeg 215 USE wxios, ONLY: wxios_add_file, using_xios215 use wxios_mod, ONLY: wxios_add_file, using_xios 216 216 IMPLICIT NONE 217 217 … … 588 588 USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat 589 589 USE aero_mod, ONLY : naero_tot, name_aero_tau 590 USE wxios, ONLY: wxios_add_field_to_file, using_xios590 use wxios_mod, ONLY: wxios_add_field_to_file, using_xios 591 591 USE print_control_mod, ONLY: prt_level,lunout 592 592 USE clesphys_mod_h … … 703 703 USE print_control_mod, ONLY: prt_level,lunout 704 704 USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat 705 USE wxios, ONLY: wxios_add_field_to_file, using_xios705 use wxios_mod, ONLY: wxios_add_field_to_file, using_xios 706 706 USE print_control_mod, ONLY: prt_level,lunout 707 707 USE clesphys_mod_h -
LMDZ6/trunk/libf/phylmd/moy_undefSTD.f90
r5282 r5310 7 7 USE dimphy 8 8 USE phys_state_var_mod 9 USE wxios, ONLY: missing_val_xios => missing_val, using_xios9 use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios 10 10 11 11 USE phys_cal_mod, ONLY: mth_len -
LMDZ6/trunk/libf/phylmd/oasis.F90
r5251 r5310 114 114 USE surface_data, ONLY : version_ocean 115 115 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 116 USE wxios, ONLY : wxios_context_init116 use wxios_mod, ONLY : wxios_context_init 117 117 USE chemistry_cycle_mod, ONLY : dms_cycle_cpl, n2o_cycle_cpl 118 118 USE lmdz_xios -
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r5305 r5310 417 417 use phys_output_var_mod, only: tkt, tks, taur, sss 418 418 use lmdz_blowing_snow_ini, only : zeta_bs 419 USE wxios, ONLY: missing_val_xios => missing_val, using_xios419 use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios 420 420 USE netcdf, only: missing_val_netcdf => nf90_fill_real 421 421 USE dimsoil_mod_h, ONLY: nsoilmx -
LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90
r5296 r5310 41 41 USE ocean_slab_mod, ONLY: nslay, tslab, seaice, tice, ocean_slab_init 42 42 USE time_phylmdz_mod, ONLY: init_iteration, pdtphys, itau_phy 43 USE wxios, ONLY: missing_val_xios => missing_val, using_xios43 use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios 44 44 use netcdf, only: missing_val_netcdf => nf90_fill_real 45 45 use config_ocean_skin_m, only: activate_ocean_skin -
LMDZ6/trunk/libf/phylmd/phys_output_mod.F90
r5285 r5310 48 48 USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref 49 49 ! ug Pour les sorties XIOS 50 USE wxios50 use wxios_mod 51 51 USE infotrac_phy, ONLY: nbtr_bin 52 52 #ifdef ISO -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r5296 r5310 464 464 ! ug Pour les sorties XIOS 465 465 USE lmdz_xios 466 USE wxios, ONLY: wxios_closedef, missing_val_xios=>missing_val, wxios_set_context466 use wxios_mod, ONLY: wxios_closedef, missing_val_xios=>missing_val, wxios_set_context 467 467 USE phys_cal_mod, ONLY : mth_len 468 468 -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r5305 r5310 74 74 USE vampir 75 75 USE write_field_phy 76 USE wxios, ONLY: g_ctx, wxios_set_context76 use wxios_mod, ONLY: g_ctx, wxios_set_context 77 77 USE lmdz_lscp, ONLY : lscp 78 78 USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop … … 128 128 USE lmdz_xios, ONLY: xios_get_field_attr, xios_field_is_active, xios_context 129 129 USE lmdz_xios, ONLY: xios_set_current_context 130 USE wxios, ONLY: missing_val, using_xios130 use wxios_mod, ONLY: missing_val, using_xios 131 131 132 132 #ifndef CPP_XIOS -
LMDZ6/trunk/libf/phylmd/plevel.f90
r5268 r5310 10 10 USE dimphy 11 11 USE phys_state_var_mod, ONLY: missing_val_nf90 12 USE wxios, ONLY: missing_val_xios => missing_val, using_xios12 use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios 13 13 IMPLICIT NONE 14 14 -
LMDZ6/trunk/libf/phylmd/plevel_new.f90
r5268 r5310 11 11 USE dimphy 12 12 USE phys_state_var_mod, ONLY: missing_val_nf90 13 USE wxios, ONLY: missing_val_xios=>missing_val, using_xios13 use wxios_mod, ONLY: missing_val_xios=>missing_val, using_xios 14 14 15 15 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmd/undefSTD.f90
r5296 r5310 7 7 USE dimphy 8 8 USE phys_state_var_mod 9 USE wxios, ONLY: missing_val_xios => missing_val, using_xios9 use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios 10 10 11 11 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
r5296 r5310 48 48 USE ocean_slab_mod, ONLY: nslay, tslab, seaice, tice, ocean_slab_init 49 49 USE time_phylmdz_mod, ONLY: init_iteration, pdtphys, itau_phy 50 USE wxios, ONLY: missing_val_xios => missing_val, using_xios50 use wxios_mod, ONLY: missing_val_xios => missing_val, using_xios 51 51 use netcdf, only: missing_val_netcdf => nf90_fill_real 52 52 use config_ocean_skin_m, only: activate_ocean_skin -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5305 r5310 74 74 USE vampir 75 75 USE write_field_phy 76 USE wxios, ONLY: g_ctx, wxios_set_context76 use wxios_mod, ONLY: g_ctx, wxios_set_context 77 77 USE lmdz_lscp, ONLY : lscp 78 78 USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop … … 131 131 USE lmdz_xios, ONLY: xios_get_field_attr, xios_field_is_active, xios_context 132 132 USE lmdz_xios, ONLY: xios_set_current_context 133 USE wxios, ONLY: missing_val, using_xios133 use wxios_mod, ONLY: missing_val, using_xios 134 134 135 135 #ifndef CPP_XIOS
Note: See TracChangeset
for help on using the changeset viewer.