C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_init_ocn_vars.F,v 1.2 2016/01/06 00:28:14 jmc Exp $ C $Name: $ #include "CPP_OPTIONS.h" CBOP 0 C !ROUTINE: CPL_INIT_OCN_VARS C !INTERFACE: SUBROUTINE CPL_INIT_OCN_VARS( msgUnit ) C !DESCRIPTION: C *==========================================================* C | SUBROUTINE CPL_INIT_OCN_VARS C | o Initialise to zero all OCNVARS.h arrays C *==========================================================* C !USES: IMPLICIT NONE C == Global variables == #include "OCNSIZE.h" #include "OCNVARS.h" c#include "OCNIDS.h" C !INPUT PARAMETERS: C msgUnit :: log-file I/O unit INTEGER msgUnit C !LOCAL VARIABLES: C i,j :: loop index INTEGER i, j CEOP WRITE(msgUnit,'(2A)') 'CPL_INIT_OCN_VARS: ', & 'initialise all OCNVARS.h arrays' DO j=1,Ny_ocn DO i=1,Nx_ocn landMask_ocn (i,j) = 0. _d 0 OcMxlD_ocn (i,j) = 0. _d 0 SST_ocn (i,j) = 0. _d 0 SSS_ocn (i,j) = 0. _d 0 vSq_ocn (i,j) = 0. _d 0 fluxCO2_ocn (i,j) = 0. _d 0 atmSLPr_ocn (i,j) = 0. _d 0 HeatFlux_ocn (i,j) = 0. _d 0 qShortWave_ocn (i,j) = 0. _d 0 TauX_ocn (i,j) = 0. _d 0 TauY_ocn (i,j) = 0. _d 0 FWFlux_ocn (i,j) = 0. _d 0 SaltFlx_ocn (i,j) = 0. _d 0 sIceMass_ocn (i,j) = 0. _d 0 saltPlmFlx_ocn (i,j) = 0. _d 0 RunOff_ocn (i,j) = 0. _d 0 aCO2_ocn (i,j) = 0. _d 0 wSpeed_ocn (i,j) = 0. _d 0 sIceFrac_ocn (i,j) = 0. _d 0 sIceThick_ocn (i,j) = 0. _d 0 sIceSnowH_ocn (i,j) = 0. _d 0 sIceQ1_ocn (i,j) = 0. _d 0 sIceQ2_ocn (i,j) = 0. _d 0 ENDDO ENDDO RETURN END