Changeset 2283 for trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

Timestamp:

Apr 9, 2020, 6:34:53 PM (5 years ago)

Author:

jvatant

Message:

Set the temperature boundaries and step for Planck function integration as input in callphys.def, for more flexibility.

+ User can now set them by tplanckmin, tplanckmax and dtplanck
+ Default values are a wide range 30-1500K
+ Add a sanity check in callcorrk instead of leaving out-of-bounds planckir indexes.

--JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90

@@ -1 +1 @@
 module radcommon_h
-      use radinc_h, only: L_NSPECTI, L_NSPECTV, NTstar, NTstop, &
+      use radinc_h, only: L_NSPECTI, L_NSPECTV, NTstart, NTstop, &
                           naerkind, nsizemax
       implicit none
@@ -123 +123 @@
       REAL,SAVE :: tstellar ! Stellar brightness temperature (SW)
 
-      real*8,save :: planckir(L_NSPECTI,NTstop-NTstar+1)
+      REAL*8, DIMENSION(:,:), ALLOCATABLE, SAVE :: planckir
 
       real*8,save :: PTOP