My Project
Functions/Subroutines
print_vals.f90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine print_vals
 

Function/Subroutine Documentation

◆ print_vals()

subroutine print_vals ( )

Definition at line 42 of file print_vals.f90.

42 
43 !------------------------------------------------------------------------------|
44 
45  USE all_vars
46  USE mod_obcs
47  IMPLICIT NONE
48  INTEGER :: I,K,IOUTTMP,ierr
49  REAL(SP), ALLOCATABLE, DIMENSION(:,:) :: UTMP,VTMP
50  REAL(SP), ALLOCATABLE, DIMENSION(:) :: UATMP,VATMP
51  REAL(SP), ALLOCATABLE, DIMENSION(:,:) :: T1TMP,S1TMP
52  REAL(SP), ALLOCATABLE, DIMENSION(:) :: ELTMP,DTMP
53 
54 !==============================================================================|
55 
56 
57  IF(serial)THEN
58 
59 
60  END IF
61 
62 
logical serial
Definition: mod_main.f90:100