igsm/src/check_lib.F


#include "ctrparam.h"

!       This subroutine saves library settings
!
      subroutine check_lib
      common /libset/nlev,nlat,nlon0

c
       nlev=N_LEV
       nlat=N_LAT
       nlon0=N_LON0
       print *,' FROM LIB',nlev,nlat,nlon0
       if(nalt.eq.24.and.nlon1.ne.36)then
         print *,'From Clim Lib'
         print *,' N_LAT inconsistent with N_LON0'
         print *,nlat,nlon0
         stop
       endif
       if(nalt.eq.46.and.nlon1.ne.72)then
         print *,'From Clim Lib'
         print *,' N_LAT inconsistent with N_LON0'
         print *,nlat,nlon1
         stop
       endif
c      print *,'nlev=',nlev
C
      return
      end
1	jscott	1.1
2			#include "ctrparam.h"
3
4			! This subroutine saves library settings
5			!
6			subroutine check_lib
7			common /libset/nlev,nlat,nlon0
8
9			c
10			nlev=N_LEV
11			nlat=N_LAT
12			nlon0=N_LON0
13			print *,' FROM LIB',nlev,nlat,nlon0
14			if(nalt.eq.24.and.nlon1.ne.36)then
15			print *,'From Clim Lib'
16			print *,' N_LAT inconsistent with N_LON0'
17			print *,nlat,nlon0
18			stop
19			endif
20			if(nalt.eq.46.and.nlon1.ne.72)then
21			print *,'From Clim Lib'
22			print *,' N_LAT inconsistent with N_LON0'
23			print *,nlat,nlon1
24			stop
25			endif
26			c print *,'nlev=',nlev
27			C
28			return
29			end