pkg/atm_ocn_coupler/cpl_init_ocn_vars.F

a92f38a442 Jean*0001 #include "CPP_OPTIONS.h"
                0002
                0003 CBOP 0
                0004 C !ROUTINE: CPL_INIT_OCN_VARS
                0005
                0006 C !INTERFACE:
                0007       SUBROUTINE CPL_INIT_OCN_VARS( msgUnit )
                0008
                0009 C !DESCRIPTION:
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE CPL_INIT_OCN_VARS
                0012 C     | o Initialise to zero all OCNVARS.h arrays
                0013 C     *==========================================================*
                0014
                0015 C !USES:
                0016       IMPLICIT NONE
                0017 C     == Global variables ==
                0018 #include "OCNSIZE.h"
                0019 #include "OCNVARS.h"
                0020 c#include "OCNIDS.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_OCN_VARS: ',
                0032      &                      'initialise all OCNVARS.h arrays'
                0033
                0034       DO j=1,Ny_ocn
                0035         DO i=1,Nx_ocn
                0036           landMask_ocn   (i,j) = 0. _d 0
                0037           OcMxlD_ocn     (i,j) = 0. _d 0
                0038           SST_ocn        (i,j) = 0. _d 0
                0039           SSS_ocn        (i,j) = 0. _d 0
                0040           vSq_ocn        (i,j) = 0. _d 0
                0041           fluxCO2_ocn    (i,j) = 0. _d 0
                0042           atmSLPr_ocn    (i,j) = 0. _d 0
                0043           HeatFlux_ocn   (i,j) = 0. _d 0
                0044           qShortWave_ocn (i,j) = 0. _d 0
                0045           TauX_ocn       (i,j) = 0. _d 0
                0046           TauY_ocn       (i,j) = 0. _d 0
                0047           FWFlux_ocn     (i,j) = 0. _d 0
                0048           SaltFlx_ocn    (i,j) = 0. _d 0
                0049           sIceMass_ocn   (i,j) = 0. _d 0
df704bd4eb Jean*0050           saltPlmFlx_ocn (i,j) = 0. _d 0
                0051           RunOff_ocn     (i,j) = 0. _d 0
a92f38a442 Jean*0052           aCO2_ocn       (i,j) = 0. _d 0
                0053           wSpeed_ocn     (i,j) = 0. _d 0
                0054           sIceFrac_ocn   (i,j) = 0. _d 0
df704bd4eb Jean*0055           sIceThick_ocn  (i,j) = 0. _d 0
                0056           sIceSnowH_ocn  (i,j) = 0. _d 0
                0057           sIceQ1_ocn     (i,j) = 0. _d 0
                0058           sIceQ2_ocn     (i,j) = 0. _d 0
a92f38a442 Jean*0059         ENDDO
                0060       ENDDO
                0061
                0062       RETURN
                0063       END