Changeset 1356 for trunk/LMDZ.TITAN/libf/phytitan/phys_state_var_mod.F90

Timestamp:

Oct 8, 2014, 9:26:28 AM (10 years ago)

Author:

slebonnois

Message:

SL: update to newstart/start2archive tools in Venus+Titan / additional diagnostics in radiative fluxes for Titan

File:

• trunk/LMDZ.TITAN/libf/phytitan/phys_state_var_mod.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/phys_state_var_mod.F90

@@ -51 +51 @@
 ! toplwdown : downward CS LW flux at TOA
 ! toplwdownclr : downward CS LW flux at TOA
-      REAL,ALLOCATABLE,SAVE :: swnet(:,:)   
-!$OMP THREADPRIVATE(swnet)
-      REAL,ALLOCATABLE,SAVE :: lwnet(:,:)   
-!$OMP THREADPRIVATE(lwnet)
+! swnet,swdn,lwdn: + downward
+! lwnet,swup,lwup: + upward
+      REAL,ALLOCATABLE,SAVE :: swnet(:,:),swup(:,:),swdn(:,:)   
+!$OMP THREADPRIVATE(swnet,swup,swdn)
+      REAL,ALLOCATABLE,SAVE :: lwnet(:,:),lwup(:,:),lwdn(:,:)
+!$OMP THREADPRIVATE(lwnet,lwup,lwdn)
       REAL,ALLOCATABLE,SAVE :: heat(:,:)   
 !$OMP THREADPRIVATE(heat)
@@ -124 +126 @@
 !
       ALLOCATE(swnet(klon,klev+1), lwnet(klon,klev+1)) 
+      ALLOCATE(swup(klon,klev+1), lwup(klon,klev+1))
+      ALLOCATE(swdn(klon,klev+1), lwdn(klon,klev+1))
       ALLOCATE(heat(klon,klev), heat0(klon,klev)) 
       ALLOCATE(cool(klon,klev), cool0(klon,klev))
@@ -152 +156 @@
       deallocate(zuthe, zvthe)
       deallocate(swnet, lwnet) 
+      deallocate(swup, lwup)
+      deallocate(swdn, lwdn)
       deallocate(heat, heat0) 
       deallocate(cool, cool0)