pkg/atm_compon_interf/atm_get_atmconfig.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
a659e5f095 Jean*0002 #ifdef ALLOW_AIM
                0003 # include "AIM_OPTIONS.h"
                0004 #endif
                0005
                0006 CBOP 0
                0007 C !ROUTINE: ATM_GET_ATMCONFIG
                0008
                0009 C !INTERFACE:
                0010       SUBROUTINE ATM_GET_ATMCONFIG(
                0011      O                              landMask,
                0012      I                              myThid )
                0013
                0014 C !DESCRIPTION:
                0015 C     *==========================================================*
                0016 C     | SUBROUTINE ATM_GET_ATMCONFIG
                0017 C     | o get atmos. config (land/sea mask) from other pkgs
                0018 C     *==========================================================*
                0019
                0020 C !USES:
                0021       IMPLICIT NONE
                0022 C     == Global variables ==
                0023 #ifdef ALLOW_AIM
                0024 # include "AIM_SIZE.h"
                0025 #else
                0026 # include "SIZE.h"
                0027 #endif
                0028
                0029 #include "EEPARAMS.h"
                0030 #include "PARAMS.h"
                0031 c#include "GRID.h"
                0032 c#include "ATMIDS.h"
                0033 c#include "ATMCPL.h"
                0034 #ifdef ALLOW_AIM
                0035 # include "AIM_FFIELDS.h"
                0036 #endif /* ALLOW_AIM */
                0037
                0038 C !INPUT/OUTPUT PARAMETERS:
                0039 C     landMask :: land / sea mask (=1 : full land; =0 : full ocean grid cell)
                0040 C     myThid   :: Thread number for this instance of the routine
                0041       _RL landMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0042       INTEGER myThid
                0043
                0044 C !LOCAL VARIABLES:
                0045       INTEGER i,j,bi,bj
                0046 CEOP
                0047
                0048       DO bj = myByLo(myThid), myByHi(myThid)
                0049        DO bi = myBxLo(myThid), myBxHi(myThid)
                0050
                0051 C--   Initialise to zero (no land, full oceanic):
                0052         DO j=1-OLy,sNy+OLy
                0053          DO i=1-OLx,sNx+OLx
                0054            landMask(i,j,bi,bj) = 0. _d 0
                0055          ENDDO
                0056         ENDDO
                0057
10f89889dc Jean*0058         IF ( useAtm_Phys ) THEN
                0059 C-    Since pkg/atm_phys does not currently handle land (but only swamp),
                0060 C     set landMask to an intermediate value (here half) to (by)pass the check
                0061 C     in ATM_CHECK_CPLCONFIG :
                0062          DO j=1-OLy,sNy+OLy
                0063           DO i=1-OLx,sNx+OLx
                0064            landMask(i,j,bi,bj) = 0.5 _d 0
                0065           ENDDO
                0066          ENDDO
                0067         ENDIF
                0068
a659e5f095 Jean*0069 #ifdef ALLOW_AIM
                0070         IF ( useAIM ) THEN
                0071          DO j=1-OLy,sNy+OLy
                0072           DO i=1-OLx,sNx+OLx
                0073            landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj)
                0074           ENDDO
                0075          ENDDO
                0076         ENDIF
                0077 #endif /* ALLOW_AIM */
                0078
                0079        ENDDO
                0080       ENDDO
                0081
                0082       RETURN
                0083       END