94 |
print*, ' Calling MNC_VAR_INIT_DBL() ...' |
print*, ' Calling MNC_VAR_INIT_DBL() ...' |
95 |
vname1(1:4) = 'time' |
vname1(1:4) = 'time' |
96 |
units(1:19) = 'days since 1970-1-1' |
units(1:19) = 'days since 1970-1-1' |
97 |
CALL MNC_VAR_INIT_DBL(myThid,fname, gname2, vname1, units ) |
CALL MNC_VAR_INIT_DBL(myThid,fname, gname2, vname1 ) |
98 |
vname2(1:4) = 'temp' |
vname2(1:4) = 'temp' |
99 |
units(1:19) = 'deg C ' |
units(1:19) = 'deg C ' |
100 |
CALL MNC_VAR_INIT_DBL(myThid,fname, gname1, vname2, units ) |
CALL MNC_VAR_INIT_DBL(myThid,fname, gname1, vname2 ) |
101 |
|
|
102 |
print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...' |
print*, ' Calling MNC_VAR_ADD_ATTR_STR() ...' |
103 |
atname(1:9) = 'grid_type' |
atname(1:9) = 'grid_type' |