Changeset 886 for codes/icosagcm/devel/src/dissip/nudging_mod.f90

Timestamp:

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

Author:

jisesh

Message:

devel: Fix to Changeset 880

File:

• codes/icosagcm/devel/src/dissip/nudging_mod.f90 (modified) (1 diff)

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(:)