| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_setunits.F,v 1.9 2008/02/05 15:31:19 jmc Exp $ |
| 2 |
C $Name: $ |
| 3 |
|
| 4 |
#include "DIAG_OPTIONS.h" |
| 5 |
|
| 6 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 7 |
CBOP 0 |
| 8 |
C !ROUTINE: DIAGNOSTICS_SETUNITS |
| 9 |
|
| 10 |
C !INTERFACE: |
| 11 |
SUBROUTINE DIAGNOSTICS_SETUNITS ( |
| 12 |
I myThid, |
| 13 |
I chardiag, |
| 14 |
I diagunits ) |
| 15 |
|
| 16 |
C !DESCRIPTION: |
| 17 |
C Wrapper routine to set the units of an active diagnostic |
| 18 |
|
| 19 |
C !USES: |
| 20 |
implicit none |
| 21 |
#include "EEPARAMS.h" |
| 22 |
#include "SIZE.h" |
| 23 |
#include "DIAGNOSTICS_SIZE.h" |
| 24 |
#include "DIAGNOSTICS.h" |
| 25 |
|
| 26 |
C !INPUT PARAMETERS: |
| 27 |
integer myThid |
| 28 |
character*8 chardiag |
| 29 |
character*16 diagunits |
| 30 |
CEOP |
| 31 |
|
| 32 |
C Local variables |
| 33 |
integer n, ndiagnum, ipointer |
| 34 |
|
| 35 |
C Run through list of active diagnostics to make sure |
| 36 |
C we are trying to fill a valid diagnostic |
| 37 |
|
| 38 |
ndiagnum = 0 |
| 39 |
ipointer = 0 |
| 40 |
do n = 1,ndiagt |
| 41 |
if(chardiag.eq.cdiag(n)) then |
| 42 |
ndiagnum = n |
| 43 |
c ipointer = idiag(n) |
| 44 |
endif |
| 45 |
enddo |
| 46 |
if( ndiagnum.ne.0 .and. ipointer.ne.0 ) then |
| 47 |
udiag(ndiagnum)=diagunits |
| 48 |
else |
| 49 |
write(6,1000)chardiag |
| 50 |
endif |
| 51 |
|
| 52 |
1000 format(' ',' Warning: Trying to set units of diagnostic ',a8, |
| 53 |
& ' But it is not a valid (or active) name ') |
| 54 |
|
| 55 |
return |
| 56 |
end |
Parent Directory
| 
Revision Log
| 
Revision Graph