#! /bin/sh
 
#    Mar 18/97 - F.Majaess (Revise for group restructuring)
#    JAN 26/93 - F.Majaess
 
#id  updcpgm - Updates "DOCPGM" from program fortran source code
 
#    AUTHOR  - F.Majaess
 
#hd  PURPOSE - "updcpgm" script used to extract the documentation 
#hd            from program source code and generate "DOCPGM" 
#hd            official program documentation file in $CCRNINFO
#hd            subdirectory. 
#hd            NOTE : Environment variables "RUNPATH", "CCRNSRC"
#hd                   and "CCRNINFO" must point to the correct 
#hd                   paths. 
 
#ex  EXAMPLE: 
#ex
#ex    updcpgm 
 
cd $RUNPATH
TmStmp=`date '+%Y/%m/%d.'`
Tpid=$$
Cwd=`pwd`
( mkdir -m 755 tmp.d.$Tpid || : )
cd tmp.d.$Tpid 
( rm -rf outsrc.$Tpid || : )
find $CCRNSRC/source${OSbin}/lspgm/diag/. -name '*.vd' -exec src2dk {} outfil=outsrc.$Tpid \;
find $CCRNSRC/source${OSbin}/lspgm/diag/init/. -name '*.f' -exec src2dk {} outfil=outsrc.$Tpid \;
find $CCRNSRC/source${OSbin}/lspgm/local/sv/. -name '*.f' -exec src2dk {} outfil=outsrc.$Tpid \;
find $CCRNSRC/source${OSbin}/lspgm/plots/. -name '*.vd' -exec src2dk {} outfil=outsrc.$Tpid \;
dcxtrct outsrc.$Tpid xtrsrc.$Tpid 
( rm -rf outsrc.$Tpid || : )
# sort -t~ +1 -2 -o sxtrsrc.$Tpid xtrsrc.$Tpid 
sort -t~ -k2,2 -o sxtrsrc.$Tpid xtrsrc.$Tpid 
( rm -rf xtrsrc.$Tpid || : )
cat << woof > in1.$Tpid
+DECK DIAGPGM 
DIAGNOSTICS PROGRAMS USER MANUAL - PROGRAM LIST
----------------------------------------------- 
  
  
PREPARATION DATE : YY/MM/DD = $TmStmp 
  
THE CCRN DIAGNOSTICS PACKAGE CONTAINS THE FOLLOWING PROGRAMS. 
THEY ARE DIVIDED INTO FUNCTIONAL SECTIONS ACCORDING TO THE KIND 
OF DATA THEY OPERATE UPON. A DETAILED USER MANUAL IS AVAILABLE 
FOR EACH OF THE SECTIONS. 
  
A) DISPLAY PROGRAMS - FIELDS OR FILE CONTENTS 
B) FILE/LABEL/RECORD MANIPULATION PROGRAMS
C) GENERAL COMPUTATION PROGRAMS 
D) GRID PROGRAMS
E) SPHERICAL HARMONIC AND FOURIER PROGRAMS
F) ZONAL CROSS-SECTION PROGRAMS 
G) AUTOMATIC DIAGNOSTICS SUBMISSION PROGRAMS
H) TIME SERIES AND STATISTICS PROGRAMS
I) INITIALIZATION PROGRAMS
J) GCM MODEL VERSION DEPENDENT PROGRAMS 
  
------------------------------------------------------------------- 
  
THE PROGRAMS ARE LOCATED IN ~acrnsrc/source${OSbin}/lspgm... 
  
--------------------------------------------------------------------
  
QUESTIONS REGARDING THE USE OF THESE PROGRAMS AND/OR DOCUMENTATION
SHOULD BE DIRECTED TO ... 
  
MIKE LAZARE   (acrnrml) - PHONE: (416) 739-4418,
 OR
FOUAD MAJAESS (acrnrfm) - PHONE: (250) 363-8238.

--------------------------------------------------------------------
  
  
*** NOTE ON ALL THE PROGRAMS *** 
    ------------------------ 

THE LAST MODIFICATION DATE FOR A GIVEN PROGRAM IS MAINLY USED TO 
INDICATE JUST THAT. USER MUST CHECK THE PROGRAM SOURCE CODE FOR 
MORE DETAILED INFORMATION REGARDING MODIFICATIONS TO THE PROGRAM 
SOURCE CODE.
  
*** NOTE ON PLOT PROGRAMS *** 
    --------------------- 
  
IN WHAT'S FOLLOW, MOST OF THE PROGRAMS WITH NAMES ENDING IN ---PLOT 
PRODUCE NCAR PLOT VECTORS AS OUTPUT WHICH CAN BE DISPLAYED ON THE 
SCREEN OR SEND TO QMS PLOTTER(S) FOR HARD COPY(IES).
A COMPLETED PLOT IS INDICATED BY THE CHARACTER 'X' IN THE UPPER 
RIGHT CORNER OF THE SCREEN/PAGE.
  
--------------------------------------------------------------------------
  
  
  
UP TO FOUR CHARACTERS FOLLOW EACH DESCRIPTION...
  
   1 - NUMBER OF INPUT  FILES  (EXCLUDING THE CARD READER). 
   2 - NUMBER OF OUTPUT FILES  (EXCLUDING THE LINE PRINTER).
   3 - C IF THE PROGRAM READS CARDS.
   4 - G IF THE PROGRAM IS RESTRICTED TO GLOBAL FIELDS. 
  
------------------------------------------------------------------
woof
prdcdoc in1.$Tpid sxtrsrc.$Tpid $CCRNINFO/unix_docpgm
chmod 750 $CCRNINFO/unix_docpgm
if [ "$SITE_ID" = 'Dorval' ] ; then
 chgrp ccrn_shr $CCRNINFO/unix_docpgm
fi
cd $Cwd
rm -rf tmp.d.$Tpid 
(mkdir -m 1755 -p $CCRNINFO/unix_docpgm_dir || : )
if [ -s "$CCRNINFO/unix_docpgm_dir/." ] ; then
 cd $CCRNINFO/unix_docpgm_dir/.
 find $CCRNSRC/source${OSbin}/lspgm/diag/. -name '*.vd' -exec updcpme {}  \;
 find $CCRNSRC/source${OSbin}/lspgm/diag/init/. -name '*.f' -exec updcpme {}  \;
 find $CCRNSRC/source${OSbin}/lspgm/local/sv/. -name '*.f' -exec updcpme {}  \;
 find $CCRNSRC/source${OSbin}/lspgm/plots/. -name '*.vd' -exec updcpme {}  \;
 cd $Cwd
fi