| File |
Line number |
Procedure |
Code |
|
./verification/advect_xy/code/ini_salt.F |
48 |
INI_SALT |
rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2 |
|
./verification/advect_xy/code/ini_theta.F |
65 |
INI_THETA |
rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
106 |
EXTERNAL_FORCING_U |
longitud1=XC(i-1,j,bi,bj)*Coord2longitude |
|
./verification/tidal_basin_2d/code/external_forcing.F |
107 |
EXTERNAL_FORCING_U |
longitud2=XC(i,j,bi,bj)*Coord2longitude |
|
./model/src/write_grid.F |
77 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,-1,myThid) |
|
./model/src/ini_grid.F |
104 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid) |
|
./model/src/ini_curvilinear_grid.F |
130 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', XC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
152 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(XC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
176 |
INI_CURVILINEAR_GRID |
CALL MDSREADFIELD('LONC.bin',readBinaryPrec,'RS',1,XC, 1,myThid) |
|
./model/src/ini_curvilinear_grid.F |
178 |
INI_CURVILINEAR_GRID |
_EXCH_XY_R4(XC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
372 |
INI_CURVILINEAR_GRID |
CALL READSYMTILE_RS(fName,1,XC,bi,bj,buf,myThid) |
|
./model/src/ini_curvilinear_grid.F |
442 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(XC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
487 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRL( XC , 'Current XC ' , |
|
./model/src/ini_curvilinear_grid.F |
493 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRL( XC , 'Current XC ' , |
|
./model/src/ini_curvilinear_grid.F |
81 |
INI_CURVILINEAR_GRID |
XC(i,j,bi,bj)=0. |