allocate_all.f90

Go to the documentation of this file.

!/===========================================================================/
! Copyright (c) 2007, The University of Massachusetts Dartmouth 
! Produced at the School of Marine Science & Technology 
! Marine Ecosystem Dynamics Modeling group
! All rights reserved.
!
! FVCOM has been developed by the joint UMASSD-WHOI research team. For 
! details of authorship and attribution of credit please see the FVCOM
! technical manual or contact the MEDM group.
!
! 
! This file is part of FVCOM. For details, see http://fvcom.smast.umassd.edu 
! The full copyright notice is contained in the file COPYRIGHT located in the 
! root directory of the FVCOM code. This original header must be maintained
! in all distributed versions.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
! AND ANY EXPRESS OR  IMPLIED WARRANTIES, INCLUDING,  BUT NOT  LIMITED TO,
! THE IMPLIED WARRANTIES OF MERCHANTABILITY AND  FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED.  
!
!/---------------------------------------------------------------------------/
! CVS VERSION INFORMATION
! $Id$
! $Name$
! $Revision$
!/===========================================================================/

SUBROUTINE allocate_all
  USE all_vars
  USE mod_utils
  USE mod_obcs
  USE mod_wd
  USE mod_spherical
  USE mod_nesting
  IMPLICIT NONE
  INTEGER IERR
  
  IF(dbg_set(dbg_log)) THEN
     WRITE(ipt,*  )'!'
     WRITE(ipt,*)'!                ALLOCATING MEMORY    '
     WRITE(ipt,*  )'!'
  END IF
  
  memcnt=0.0_sp

  CALL alloc_vars(dbg_set(dbg_log))
  
  CALL alloc_obc_data

  ! ALWAYS INITIALIZE WET DRY VARIABLE IF DEFINED
  CALL alloc_wd_data





   memtot = memcnt*4

   IF(dbg_set(dbg_log)) THEN
      WRITE(ipt,*)'!  # MBYTES TOTAL MEM    :',memtot/1e+6
      IF(par)WRITE(ipt,*)'!  # AVERAGE MBYTES/PROC :',memtot/(1e+6*nprocs)
   END IF


END SUBROUTINE allocate_all