pkg/atm_compon_interf/atm_get_atmconfig.F

C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/atm_export_atmconfig.F,v 1.3 2009/12/24 16:49:08 jmc Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"
#ifdef ALLOW_AIM
# include "AIM_OPTIONS.h"
#endif

CBOP 0
C !ROUTINE: ATM_GET_ATMCONFIG

C !INTERFACE:
      SUBROUTINE ATM_GET_ATMCONFIG(
     O                              landMask,
     I                              myThid )

C !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE ATM_GET_ATMCONFIG
C     | o get atmos. config (land/sea mask) from other pkgs
C     *==========================================================*

C !USES:
      IMPLICIT NONE
C     == Global variables ==
#ifdef ALLOW_AIM
# include "AIM_SIZE.h"
#else
# include "SIZE.h"
#endif

#include "EEPARAMS.h"
#include "PARAMS.h"
c#include "GRID.h"
c#include "ATMIDS.h"
c#include "ATMCPL.h"
#ifdef ALLOW_AIM
# include "AIM_FFIELDS.h"
#endif /* ALLOW_AIM */

C !INPUT/OUTPUT PARAMETERS:
C     landMask :: land / sea mask (=1 : full land; =0 : full ocean grid cell)
C     myThid   :: Thread number for this instance of the routine
      _RL landMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      INTEGER myThid

C !LOCAL VARIABLES:
      INTEGER i,j,bi,bj
CEOP

      DO bj = myByLo(myThid), myByHi(myThid)
       DO bi = myBxLo(myThid), myBxHi(myThid)

C--   Initialise to zero (no land, full oceanic):
        DO j=1-OLy,sNy+OLy
         DO i=1-OLx,sNx+OLx
           landMask(i,j,bi,bj) = 0. _d 0
         ENDDO
        ENDDO

#ifdef ALLOW_AIM
        IF ( useAIM ) THEN
         DO j=1-OLy,sNy+OLy
          DO i=1-OLx,sNx+OLx
           landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj)
          ENDDO
         ENDDO
        ENDIF
#endif /* ALLOW_AIM */

       ENDDO
      ENDDO

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/atm_export_atmconfig.F,v 1.3 2009/12/24 16:49:08 jmc Exp $
2	C $Name: $
3
4	#include "PACKAGES_CONFIG.h"
5	#include "CPP_OPTIONS.h"
6	#ifdef ALLOW_AIM
7	# include "AIM_OPTIONS.h"
8	#endif
9
10	CBOP 0
11	C !ROUTINE: ATM_GET_ATMCONFIG
12
13	C !INTERFACE:
14	SUBROUTINE ATM_GET_ATMCONFIG(
15	O landMask,
16	I myThid )
17
18	C !DESCRIPTION:
19	C ==========================================================
20	C \| SUBROUTINE ATM_GET_ATMCONFIG
21	C \| o get atmos. config (land/sea mask) from other pkgs
22	C ==========================================================
23
24	C !USES:
25	IMPLICIT NONE
26	C == Global variables ==
27	#ifdef ALLOW_AIM
28	# include "AIM_SIZE.h"
29	#else
30	# include "SIZE.h"
31	#endif
32
33	#include "EEPARAMS.h"
34	#include "PARAMS.h"
35	c#include "GRID.h"
36	c#include "ATMIDS.h"
37	c#include "ATMCPL.h"
38	#ifdef ALLOW_AIM
39	# include "AIM_FFIELDS.h"
40	#endif /* ALLOW_AIM */
41
42	C !INPUT/OUTPUT PARAMETERS:
43	C landMask :: land / sea mask (=1 : full land; =0 : full ocean grid cell)
44	C myThid :: Thread number for this instance of the routine
45	_RL landMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46	INTEGER myThid
47
48	C !LOCAL VARIABLES:
49	INTEGER i,j,bi,bj
50	CEOP
51
52	DO bj = myByLo(myThid), myByHi(myThid)
53	DO bi = myBxLo(myThid), myBxHi(myThid)
54
55	C-- Initialise to zero (no land, full oceanic):
56	DO j=1-OLy,sNy+OLy
57	DO i=1-OLx,sNx+OLx
58	landMask(i,j,bi,bj) = 0. _d 0
59	ENDDO
60	ENDDO
61
62	#ifdef ALLOW_AIM
63	IF ( useAIM ) THEN
64	DO j=1-OLy,sNy+OLy
65	DO i=1-OLx,sNx+OLx
66	landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj)
67	ENDDO
68	ENDDO
69	ENDIF
70	#endif /* ALLOW_AIM */
71
72	ENDDO
73	ENDDO
74
75	RETURN
76	END