Changeset 3106 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Dec 3, 2017, 10:03:26 PM (7 years ago)

Author:

oboucher

Message:

Adding clear-sky clean (no aerosol) LW radiative fluxes at TOA and SFC as diagnostic

File:

• LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -119 +119 @@
       REAL,ALLOCATABLE,SAVE :: SWup200clr(:), SWup200(:)
 !$OMP THREADPRIVATE(SWup200clr,SWup200)
-      REAL,ALLOCATABLE,SAVE :: lwdn0(:,:), lwdn(:,:)
-!$OMP THREADPRIVATE(lwdn0,lwdn)
-      REAL,ALLOCATABLE,SAVE :: lwup0(:,:), lwup(:,:)
-!$OMP THREADPRIVATE(lwup0,lwup)
+      REAL,ALLOCATABLE,SAVE :: lwdnc0(:,:), lwdn0(:,:), lwdn(:,:)
+!$OMP THREADPRIVATE(lwdnc0,lwdn0,lwdn)
+      REAL,ALLOCATABLE,SAVE :: lwupc0(:,:), lwup0(:,:), lwup(:,:)
+!$OMP THREADPRIVATE(lwupc0,lwup0,lwup)
       REAL,ALLOCATABLE,SAVE :: LWdn200clr(:), LWdn200(:)
 !$OMP THREADPRIVATE(LWdn200clr,LWdn200)
@@ -352 +352 @@
       REAL,ALLOCATABLE,SAVE :: solsw0p(:),sollw0p(:)
 !$OMP THREADPRIVATE(topsw0p,toplw0p,solsw0p,sollw0p)
-      REAL,ALLOCATABLE,SAVE :: lwdn0p(:,:), lwdnp(:,:)
-      REAL,ALLOCATABLE,SAVE :: lwup0p(:,:), lwupp(:,:)
-!$OMP THREADPRIVATE(lwdn0p, lwdnp, lwup0p, lwupp)
+      REAL,ALLOCATABLE,SAVE :: lwdnc0p(:,:), lwdn0p(:,:), lwdnp(:,:)
+      REAL,ALLOCATABLE,SAVE :: lwupc0p(:,:), lwup0p(:,:), lwupp(:,:)
+!$OMP THREADPRIVATE(lwdnc0p, lwdn0p, lwdnp, lwupc0p, lwup0p, lwupp)
       REAL,ALLOCATABLE,SAVE :: swdnc0p(:,:), swdn0p(:,:), swdnp(:,:)
       REAL,ALLOCATABLE,SAVE :: swupc0p(:,:), swup0p(:,:), swupp(:,:)
@@ -480 +480 @@
       ALLOCATE(swdnc0(klon,klevp1), swdn0(klon,klevp1), swdn(klon,klevp1))
       ALLOCATE(swupc0(klon,klevp1), swup0(klon,klevp1), swup(klon,klevp1))
-      ALLOCATE(lwdn0(klon,klevp1), lwdn(klon,klevp1))
-      ALLOCATE(lwup0(klon,klevp1), lwup(klon,klevp1))
+      ALLOCATE(lwdnc0(klon,klevp1), lwdn0(klon,klevp1), lwdn(klon,klevp1))
+      ALLOCATE(lwupc0(klon,klevp1), lwup0(klon,klevp1), lwup(klon,klevp1))
       ALLOCATE(SWdn200clr(klon), SWdn200(klon))
       ALLOCATE(SWup200clr(klon), SWup200(klon))
@@ -576 +576 @@
       ALLOCATE(topsw0p(klon),toplw0p(klon))
       ALLOCATE(solsw0p(klon),sollw0p(klon))
-      ALLOCATE(lwdn0p(klon,klevp1), lwdnp(klon,klevp1))
-      ALLOCATE(lwup0p(klon,klevp1), lwupp(klon,klevp1))
+      ALLOCATE(lwdnc0p(klon,klevp1), lwdn0p(klon,klevp1), lwdnp(klon,klevp1))
+      ALLOCATE(lwupc0p(klon,klevp1), lwup0p(klon,klevp1), lwupp(klon,klevp1))
       ALLOCATE(swdnc0p(klon,klevp1), swdn0p(klon,klevp1), swdnp(klon,klevp1))
       ALLOCATE(swupc0p(klon,klevp1), swup0p(klon,klevp1), swupp(klon,klevp1))
@@ -638 +638 @@
       deallocate(swdnc0, swdn0, swdn)
       deallocate(swupc0, swup0, swup)
-      deallocate(lwdn0, lwdn)
-      deallocate(lwup0, lwup)
+      deallocate(lwdnc0, lwdn0, lwdn)
+      deallocate(lwupc0, lwup0, lwup)
       deallocate(SWdn200clr, SWdn200)
       deallocate(SWup200clr, SWup200)
@@ -711 +711 @@
       deallocate(topsw0p,toplw0p)
       deallocate(solsw0p,sollw0p)
-      deallocate(lwdn0p, lwdnp)
-      deallocate(lwup0p, lwupp)
+      deallocate(lwdnc0p, lwdn0p, lwdnp)
+      deallocate(lwupc0p, lwup0p, lwupp)
       deallocate(swdnc0p, swdn0p, swdnp)
       deallocate(swupc0p, swup0p, swupp)