pkg/atm_ocn_coupler/cpl_init_atm_vars.F

a92f38a442 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CBOP 0
                0004 C !ROUTINE: CPL_INIT_ATM_VARS
                0005
                0006 C !INTERFACE:
                0007       SUBROUTINE CPL_INIT_ATM_VARS( msgUnit )
                0008
                0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE CPL_INIT_ATM_VARS
                0012 C     | o Initialise to zero all ATMVARS.h arrays
                0013 C     *==========================================================*
                0014
                0015 C !USES:
                0016       IMPLICIT NONE
                0017 C     == Global variables ==
                0018 #include "ATMSIZE.h"
                0019 #include "ATMVARS.h"
                0020 c#include "ATMIDS.h"
                0021
                0022 C !INPUT PARAMETERS:
                0023 C     msgUnit          :: log-file I/O unit
                0024       INTEGER msgUnit
                0025
                0026 C !LOCAL VARIABLES:
                0027 C     i,j     :: loop index
                0028       INTEGER i, j
                0029 CEOP
                0030
                0031       WRITE(msgUnit,'(2A)') 'CPL_INIT_ATM_VARS: ',
                0032      &                      'initialise all ATMVARS.h arrays'
                0033
                0034       DO j=1,Ny_atm
                0035         DO i=1,Nx_atm
                0036           landMask_atm   (i,j) = 0. _d 0
                0037           OcMxlD_atm     (i,j) = 0. _d 0
                0038           SST_atm        (i,j) = 0. _d 0
                0039           SSS_atm        (i,j) = 0. _d 0
                0040           vSq_atm        (i,j) = 0. _d 0
                0041           fluxCO2_atm    (i,j) = 0. _d 0
                0042           atmSLPr_atm    (i,j) = 0. _d 0
                0043           HeatFlux_atm   (i,j) = 0. _d 0
                0044           qShortWave_atm (i,j) = 0. _d 0
                0045           TauX_atm       (i,j) = 0. _d 0
                0046           TauY_atm       (i,j) = 0. _d 0
                0047           EvMPr_atm      (i,j) = 0. _d 0
                0048           RunOff_atm     (i,j) = 0. _d 0
                0049           ROEnFx_atm     (i,j) = 0. _d 0
                0050           SaltFlx_atm    (i,j) = 0. _d 0
                0051           sIceMass_atm   (i,j) = 0. _d 0
df704bd4eb Jean*0052           saltPlmFlx_atm (i,j) = 0. _d 0
a92f38a442 Jean*0053           aCO2_atm       (i,j) = 0. _d 0
                0054           wSpeed_atm     (i,j) = 0. _d 0
                0055           sIceFrac_atm   (i,j) = 0. _d 0
df704bd4eb Jean*0056           sIceThick_atm  (i,j) = 0. _d 0
                0057           sIceSnowH_atm  (i,j) = 0. _d 0
                0058           sIceQ1_atm     (i,j) = 0. _d 0
                0059           sIceQ2_atm     (i,j) = 0. _d 0
a92f38a442 Jean*0060         ENDDO
                0061       ENDDO
                0062
                0063       RETURN
                0064       END