Changeset 886

Timestamp:

06/12/19 19:00:02 (5 years ago)

Author:

jisesh

Message:

devel: Fix to Changeset 880

Location:

codes/icosagcm/devel/src

Files:

• dissip/nudging_mod.f90 (modified) (1 diff)
• output/xios_mod.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/dissip/nudging_mod.f90

@@ -153 +153 @@
     TYPE(t_field),POINTER :: f_theta_rhodz(:)
     TYPE(t_field),POINTER :: f_u(:)  
-    TYPE(t_field),POINTER :: f_q(:) 
-    TYPE(t_field),POINTER :: f_T_guided(:),  f_ulon_guided(:), f_ulat_guided(:),f_pressure_mid(:) 
+    TYPE(t_field),POINTER :: f_q(:)
+    TYPE(t_field),POINTER, SAVE :: f_T_guided(:),  f_ulon_guided(:), f_ulat_guided(:),f_pressure_mid(:) 
     REAL(rstd), POINTER :: target_ue(:,:), ue(:,:), coef_e(:)
     REAL(rstd), POINTER :: target_theta_rhodz(:,:,:), theta_rhodz(:,:,:), coef_i(:) 

codes/icosagcm/devel/src/output/xios_mod.F90

@@ -43 +43 @@
 
  SUBROUTINE xios_init_write_field
+   USE disvert_mod, ONLY : presnivs
    USE time_mod, ONLY : dt, itau_out
    USE grid_param, ONLY : llm, nqtot
@@ -68 +69 @@
    CALL xios_set_axis_attr("levp1",n_glo=llm+1 ,value=lev_valuep1) ;
    CALL xios_set_axis_attr("nq",n_glo=nqtot, value=nq_value) ;
-   
+   CALL xios_set_axis_attr("presnivs_mb",n_glo=llm, value=presnivs/100., unit="mb") ;
+
    !------------------ primal cells ------------------
    CALL collect_bounds(6, mesh_loc%primal_own)