allocate_all.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	allocate_all

Function/Subroutine Documentation

allocate_all()

subroutine allocate_all

(

)

Definition at line 41 of file allocate_all.f90.

  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

Here is the call graph for this function:

Here is the caller graph for this function: