Changeset 1551 for palm/trunk/SOURCE/swap_timelevel.f90

Timestamp:

Mar 3, 2015 2:18:16 PM (9 years ago)

Author:

maronga

Message:

land surface model released

File:

• palm/trunk/SOURCE/swap_timelevel.f90 (modified) (5 diffs)

palm/trunk/SOURCE/swap_timelevel.f90

@@ -72 +72 @@
         ONLY:  e, e_p, nr, nr_p, pt, pt_p, q, q_p, qr, qr_p, sa, sa_p, u, u_p, &
                v, v_p, w, w_p
-
-    USE land_surface_model_mod,                                                &
-        ONLY: land_surface, m_liq, m_liq_p, m_soil, m_soil_p, T_0, T_0_p,      &
-              T_soil, T_soil_p
 #else
     USE arrays_3d,                                                             &
@@ -82 +78 @@
                u_1, u_2, u_p, v, v_1, v_2, v_p, w, w_1, w_2, w_p
 
+#endif
+
     USE land_surface_model_mod,                                                &
-        ONLY: land_surface, m_liq, m_liq_1, m_liq_2, m_liq_p, m_soil,          &
-              m_soil_1, m_soil_2, m_soil_p, T_0, T_0_1, T_0_2, T_0_p, T_soil,  &
-              T_soil_1, T_soil_2, T_soil_p
-#endif
+        ONLY: land_surface, lsm_swap_timelevel
 
     USE cpulog,                                                                &
@@ -129 +124 @@
 
     IF ( land_surface )  THEN
-       T_0    = T_0_p
-       T_soil = T_soil_p
-       IF ( humidity )  THEN
-          m_soil = m_soil_p
-          m_liq  = m_liq_p
-       ENDIF
+       CALL lsm_swap_timelevel ( 0 )
     ENDIF
 
@@ -168 +158 @@
 
           IF ( land_surface )  THEN
-             T_0    => T_0_1;    T_0_p    => T_0_2
-             T_soil => T_soil_1; T_soil_p => T_soil_2
-             IF ( humidity )  THEN
-                m_soil => m_soil_1; m_soil_p  => m_soil_2
-                m_liq  => m_liq_1;  m_liq_p   => m_liq_2
-             ENDIF
+             CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
           ENDIF
 
@@ -201 +186 @@
 
           IF ( land_surface )  THEN
-             T_0    => T_0_2;    T_0_p    => T_0_1
-             T_soil => T_soil_2; T_soil_p => T_soil_1
-             IF ( humidity )  THEN
-                m_soil => m_soil_2; m_soil_p  => m_soil_1
-                m_liq  => m_liq_2;  m_liq_p   => m_liq_1
-             ENDIF
+             CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
           ENDIF