Changeset 886 for codes/icosagcm/devel/src
- Timestamp:
- 06/12/19 19:00:02 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dissip/nudging_mod.f90
r874 r886 153 153 TYPE(t_field),POINTER :: f_theta_rhodz(:) 154 154 TYPE(t_field),POINTER :: f_u(:) 155 TYPE(t_field),POINTER :: f_q(:) 156 TYPE(t_field),POINTER :: f_T_guided(:), f_ulon_guided(:), f_ulat_guided(:),f_pressure_mid(:)155 TYPE(t_field),POINTER :: f_q(:) 156 TYPE(t_field),POINTER, SAVE :: f_T_guided(:), f_ulon_guided(:), f_ulat_guided(:),f_pressure_mid(:) 157 157 REAL(rstd), POINTER :: target_ue(:,:), ue(:,:), coef_e(:) 158 158 REAL(rstd), POINTER :: target_theta_rhodz(:,:,:), theta_rhodz(:,:,:), coef_i(:) -
codes/icosagcm/devel/src/output/xios_mod.F90
r880 r886 43 43 44 44 SUBROUTINE xios_init_write_field 45 USE disvert_mod, ONLY : presnivs 45 46 USE time_mod, ONLY : dt, itau_out 46 47 USE grid_param, ONLY : llm, nqtot … … 68 69 CALL xios_set_axis_attr("levp1",n_glo=llm+1 ,value=lev_valuep1) ; 69 70 CALL xios_set_axis_attr("nq",n_glo=nqtot, value=nq_value) ; 70 71 CALL xios_set_axis_attr("presnivs_mb",n_glo=llm, value=presnivs/100., unit="mb") ; 72 71 73 !------------------ primal cells ------------------ 72 74 CALL collect_bounds(6, mesh_loc%primal_own)
Note: See TracChangeset
for help on using the changeset viewer.