Changeset 1420 for trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F

Timestamp:

Apr 17, 2015, 5:40:46 PM (10 years ago)

Author:

sglmd

Message:

some clean-up: hard coded parameters removed

File:

• trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F

@@ -36 +36 @@
       implicit none
 
-      INTEGER NLP
-      PARAMETER (NLP=101) ! MUST BE LARGER THAN NLEVEL 
 
       INTEGER NLL, NLAYER, L, NW, NT, NT2
@@ -48 +46 @@
       REAL*8  WAVEN, DW, UBARI, RSF
       REAL*8  BTOP, BSURF, FMIDP(L_NLAYRAD), FMIDM(L_NLAYRAD)
-      REAL*8  B0(NLP),B1(NLP),ALPHA(NLP),LAMDA(NLP),XK1(NLP),XK2(NLP)
-      REAL*8  GAMA(NLP),CP(NLP),CM(NLP),CPM1(NLP),CMM1(NLP),E1(NLP)
-      REAL*8  E2(NLP),E3(NLP),E4(NLP)
+      REAL*8  B0(L_NLAYRAD),B1(L_NLAYRAD),ALPHA(L_NLAYRAD)
+      REAL*8  LAMDA(L_NLAYRAD),XK1(L_NLAYRAD),XK2(L_NLAYRAD)
+      REAL*8  GAMA(L_NLAYRAD),CP(L_NLAYRAD),CM(L_NLAYRAD)
+      REAL*8  CPM1(L_NLAYRAD),CMM1(L_NLAYRAD),E1(L_NLAYRAD)
+      REAL*8  E2(L_NLAYRAD),E3(L_NLAYRAD),E4(L_NLAYRAD)
 
       REAL*8  FTOPUP, FLUXUP, FLUXDN
@@ -60 +60 @@
 C     WE GO WITH THE HEMISPHERIC CONSTANT APPROACH IN THE INFRARED
  
-
-      IF (NLL .GT. NLP) STOP 'PARAMETER NL TOO SMALL IN GFLUXI'
 
       NLAYER = L_NLAYRAD