CRITDS.f90#54 INTEGER IB , IT , NL , NLEV #87 DO NL = 1 , NLEV - 1 #88 LS(NL) = 0.5*GRIDWS(NL)*GRIDWS(NL) ! 0 #98 DO NL = NLEV - 1 , 1 , -1 #100 IF ( NL.LT.NLEV-1 ) THEN ! 0 #101 ZMID = 0.5*(GRIDHT(NL+1)+GRIDHT(NL)) ! 0 #102 PTHC = 0.5*(GRIDPT(NL+1)+GRIDPT(NL)) #103 TGHC = 0.5*(GRIDTG(NL+1)+GRIDTG(NL)) #104 TOPHT = GRIDHT(NL+1) #106 ELSEIF ( NL.EQ.NLEV-1 ) THEN #107 ZMID = 0.5*(HHILL+GRIDHT(NL)) ! 0 #108 PTHC = 0.5*(PTATHH+GRIDPT(NL)) #109 TGHC = 0.5*(TGATHH+GRIDTG(NL)) #116 XN2(NL) = (G/PTHC)*TGHC ! 0 #117 RS(NL) = RS(NL+1) + XN2(NL) & #118 & *((HHILL-ZMID)*(TOPHT-GRIDHT(NL))) #126 DO NL = NLEV , 1 , -1 #127 IF ( LS(NL).GE.RS(NL) ) IT = NL ! 0 METQA.f90#36 INTEGER :: NL #55 DO NL = 1 , NPLVLS #56 IF ( PFLWD(NL).EQ.0.0 ) PFLWD(NL) = 360.0 ! 4320 PRTSRC.f90#49 INTEGER :: I , J , K , NL , I1 , I2 , I3 , IFR , IDW , ITO , & #288 NL = 1 + INT((INGRP-1)/12) ! 3 #289 DO K = 1 , NL #297 IF ( K.EQ.1 .AND. K.EQ.NL ) THEN ! 3 #299 ELSEIF ( K.EQ.1 .AND. K.NE.NL ) THEN #301 ELSEIF ( K.EQ.NL ) THEN #320 NL = 1 + INT((INGRP-1)/12) ! 0 #321 DO K = 1 , NL #332 IF ( K.EQ.1 .AND. K.EQ.NL ) THEN ! 0 #334 ELSEIF ( K.EQ.1 .AND. K.NE.NL ) THEN #336 ELSEIF ( K.EQ.NL ) THEN SET_METDATA.f90#38 INTEGER :: I , IA , IY , IM , ID , NL , GINDEX , NUMSW #133 DO NL = 1 , NPLVLS ! 0 #134 IF ( PFLWD(NL).GT.0.0 ) THEN ! 0 #135 PFLWD(NL) = PFLWD(NL) - ROTANG ! 0 #137 IF ( PFLWD(NL).LE.0.0 ) PFLWD(NL) = PFLWD(NL) + 360.0
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use