Warning, /pkg/mnc/mnc_test_002.T is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
e9b72f2bd9 Ed H*0001 C Simple test program for MNC
0002
0003 PROGRAM mnc_test_002
0004
0005 implicit none
0006 #include "MNC_OPTIONS.h"
0007 #include "EEPARAMS.h"
0008
0009 C Functions
0010 integer ILNBLNK
0011
0012 C Local Variables
3f2ea2a4ed Ed H*0013 integer i, myThid
e9b72f2bd9 Ed H*0014
3f2ea2a4ed Ed H*0015 myThid = 0
e9b72f2bd9 Ed H*0016 print*, '=== Starting Program: mnc_test_002 ==='
0017
3f2ea2a4ed Ed H*0018 CALL MNC_INIT(myThid)
0019 CALL MNC_CW_INIT(20,16, 4,4, 1,1, 1,1, 13, myThid)
0020
0021 CALL MNC_CW_ADD_VNAME('v_vel', 'V_xy_Hn__C__t', 4,5, myThid )
0022 CALL MNC_CW_ADD_VATTR_TEXT('v_vel', 1,
0023 & 'long_name', 'meridional_velocity', myThid)
0024 CALL MNC_CW_ADD_VATTR_TEXT('v_vel', 1,
0025 & 'units', 'cm/s', myThid)
0026 CALL MNC_CW_ADD_VATTR_INT('v_vel', 1,
0027 & 'grid_type', -1, myThid )
0028 CALL MNC_CW_ADD_VATTR_DBL('v_vel', 1,
0029 & 'MITgcm_grid_ver', 0.1D0, myThid )
0030
0031 CALL MNC_CW_DUMP(myThid)
15688ab4b4 Ed H*0032
e9b72f2bd9 Ed H*0033 print*, '=== Ending Program: mnc_test_002 ==='
0034
0035 END
0036
0037 CEH3 ;;; Local Variables: ***
0038 CEH3 ;;; mode:fortran ***
0039 CEH3 ;;; End: ***