Changeset 868 for codes/icosagcm/devel/src
- Timestamp:
- 05/16/19 23:52:50 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/check_conserve.f90
r824 r868 56 56 USE caldyn_gcm_mod 57 57 USE exner_mod 58 ! USE mpipara, ONLY : is_mpi_master, comm_icosa59 58 USE omp_para, ONLY : is_master 59 USE grid_param 60 60 TYPE(t_field),POINTER :: f_ps(:) 61 61 TYPE(t_field),POINTER :: f_dps(:) … … 69 69 REAL(rstd) :: mtot, angtot, rmsdpdt 70 70 REAL(rstd) :: etot, stot, ang_mass, ang_vel, ang_velp, ang_velm, rmsvtot, ztot 71 72 IF(grid_type == grid_unst) RETURN ! FIXME 71 73 72 74 CALL transfert_request(f_ue,req_e1_vect) -
codes/icosagcm/devel/src/diagnostics/observable.f90
r732 r868 48 48 USE omega_mod 49 49 USE kinetic_mod 50 50 USE grid_param 51 51 LOGICAL, INTENT(IN) :: init 52 52 INTEGER :: l … … 57 57 TYPE(t_field),POINTER :: f_phis(:), f_ps(:), f_mass(:), f_geopot(:), f_theta_rhodz(:), f_u(:), f_W(:), f_q(:) 58 58 ! IF (is_master) PRINT *,'CALL write_output_fields_basic' 59 60 IF(grid_type==grid_unst) RETURN ! FIXME 59 61 60 62 CALL transfert_request(f_ps,req_i1) -
codes/icosagcm/devel/src/output/write_etat0.f90
r732 r868 12 12 USE xios_mod 13 13 USE caldyn_vars_mod 14 USE grid_param 14 15 IMPLICIT NONE 15 16 INTEGER,INTENT(IN) :: it … … 28 29 INTEGER :: ind 29 30 30 31 IF(grid_type == grid_unst) RETURN 32 31 33 CALL allocate_field(f_ulon,field_t,type_real,llm,name='ulon') 32 34 CALL allocate_field(f_ulat,field_t,type_real,llm,name='ulat') -
codes/icosagcm/devel/src/parallel/transfert_mpi.f90
r846 r868 1142 1142 USE omp_para 1143 1143 USE trace 1144 USE grid_param 1144 1145 IMPLICIT NONE 1145 1146 TYPE(t_field),POINTER :: field(:) … … 1166 1167 1167 1168 ! CALL trace_start("send_message_mpi") 1169 1170 IF(grid_type == grid_unst) RETURN 1168 1171 1169 1172 CALL enter_profile(id_mpi) … … 1552 1555 USE omp_para 1553 1556 USE trace 1557 USE grid_param 1554 1558 IMPLICIT NONE 1555 1559 TYPE(t_message) :: message … … 1571 1575 INTEGER :: dim3,dim4,d3,d4,lbegin,lend 1572 1576 INTEGER :: offset 1577 1578 IF(grid_type == grid_unst) RETURN 1573 1579 1574 1580 message%open=.FALSE. … … 1722 1728 SUBROUTINE transfert_request_mpi(field,request) 1723 1729 USE field_mod 1730 USE grid_param 1724 1731 IMPLICIT NONE 1725 1732 TYPE(t_field),POINTER :: field(:) … … 1728 1735 TYPE(t_message),SAVE :: message 1729 1736 1730 1737 IF(grid_type == grid_unst) RETURN 1738 1731 1739 CALL init_message_mpi(field,request, message) 1732 1740 CALL transfert_message_mpi(field,message)
Note: See TracChangeset
for help on using the changeset viewer.