Changeset 2825 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

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

Author:

musat

Message:

Delete paire_ter LMDZ variable and aireTER output

File:

• LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

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 >>>