Changeset 2825 for LMDZ5/trunk/libf

Timestamp:

Mar 15, 2017, 4:32:31 PM (8 years ago)

Author:

musat

Message:

Delete paire_ter LMDZ variable and aireTER output

Location:

LMDZ5/trunk/libf/phylmd

Files:

• calcul_divers.h (modified) (1 diff)
• phys_output_write_mod.F90 (modified) (2 diffs)
• phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/calcul_divers.h

@@ -5 +5 @@
       IF(itap.EQ.1) THEN
          itapm1=0
-!        surface terre
-         DO i=1, klon
-            IF(pctsrf(i,is_ter).GT.0.) THEN
-               paire_ter(i)=cell_area(i)*pctsrf(i,is_ter)
-            ENDIF 
-         ENDDO
       ENDIF
 

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -196 +196 @@
 #endif
 
-    USE phys_state_var_mod, ONLY: pctsrf, paire_ter, rain_fall, snow_fall, &
+    USE phys_state_var_mod, ONLY: pctsrf, rain_fall, snow_fall, &
          qsol, z0m, z0h, fevap, agesno, &
          nday_rain, rain_con, snow_con, &
@@ -512 +512 @@
        CALL histwrite_phy(o_contfracATM, zx_tmp_fi2d)
        CALL histwrite_phy(o_contfracOR, pctsrf(:,is_ter))
-       CALL histwrite_phy(o_aireTER, paire_ter)
 !
 #ifdef CPP_XIOS

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -275 +275 @@
       REAL,ALLOCATABLE,SAVE :: total_rain(:), nday_rain(:)  
 !$OMP THREADPRIVATE(total_rain,nday_rain)
-      REAL,ALLOCATABLE,SAVE :: paire_ter(:)
-!$OMP THREADPRIVATE(paire_ter)
 ! albsol1: albedo du sol total pour SW visible
 ! albsol2: albedo du sol total pour SW proche IR
@@ -536 +534 @@
       ALLOCATE(pfrac_1nucl(klon,klev))
       ALLOCATE(total_rain(klon), nday_rain(klon))
-      ALLOCATE(paire_ter(klon))
       ALLOCATE(albsol1(klon), albsol2(klon))
 !albedo SB >>>
@@ -675 +672 @@
       deallocate(pfrac_1nucl)
       deallocate(total_rain, nday_rain)
-      deallocate(paire_ter)
       deallocate(albsol1, albsol2)
 !albedo SB >>>