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
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