File |
Line number |
Procedure |
Code |
./eesupp/src/gather_xz.F |
16 |
GATHER_XZ |
_RL local(1-OLx:sNx+OLx,nSx,nSy) |
./eesupp/src/gather_xz.F |
37 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
./eesupp/src/gather_xz.F |
57 |
GATHER_XZ |
global(iG) = local(i,bi,bj) |
./eesupp/src/gather_xz.F |
6 |
GATHER_XZ |
SUBROUTINE GATHER_XZ( global, local, myThid ) |
./eesupp/src/gather_xz.F |
89 |
GATHER_XZ |
CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION, |
./eesupp/src/gather_yz.F |
16 |
GATHER_YZ |
_RL local(1-OLy:sNy+OLy,nSx,nSy) |
./eesupp/src/gather_yz.F |
37 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
./eesupp/src/gather_yz.F |
57 |
GATHER_YZ |
global(jG) = local(j,bi,bj) |
./eesupp/src/gather_yz.F |
6 |
GATHER_YZ |
SUBROUTINE GATHER_YZ( global, local, myThid ) |
./eesupp/src/gather_yz.F |
89 |
GATHER_YZ |
CALL MPI_SEND (local, lbuff, MPI_DOUBLE_PRECISION, |
./pkg/cheapaml/cheapaml_fields_load.F |
105 |
CHEAPAML_FIELDS_LOAD |
_RL recipNym1, local, u, ssqa |
./pkg/cheapaml/cheapaml_fields_load.F |
456 |
CHEAPAML_FIELDS_LOAD |
local = 225. _d 0 - (jG-1)*recipNym1*37.5 _d 0 |
./pkg/cheapaml/cheapaml_fields_load.F |
457 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = local |
./pkg/cheapaml/cheapaml_fields_load.F |
472 |
CHEAPAML_FIELDS_LOAD |
local = solar(i,j,bi,bj) |
./pkg/cheapaml/cheapaml_fields_load.F |
473 |
CHEAPAML_FIELDS_LOAD |
local = (2. _d 0*local/stefan)**(0.25 _d 0) - celsius2K |
./pkg/cheapaml/cheapaml_fields_load.F |
474 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = local |
./pkg/cheapaml/cheapaml_fields_load.F |
491 |
CHEAPAML_FIELDS_LOAD |
local = Tr(i,j,bi,bj) + celsius2K |
./pkg/cheapaml/cheapaml_fields_load.F |
492 |
CHEAPAML_FIELDS_LOAD |
ssqa = ssq0*EXP( lath*(ssq1-ssq2/local)) / p0 |
./pkg/cheapaml/cheapaml_fields_load.F |
512 |
CHEAPAML_FIELDS_LOAD |
local = -5. _d 0*COS( 2. _d 0*PI*(jG-1)*recipNym1 ) |
./pkg/cheapaml/cheapaml_fields_load.F |
514 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = local |
./pkg/cheapaml/cheapaml_init_varia.F |
133 |
CHEAPAML_INIT_VARIA |
local= Tair(i,j,bi,bj)+celsius2K |
./pkg/cheapaml/cheapaml_init_varia.F |
134 |
CHEAPAML_INIT_VARIA |
ssqa = ssq0*EXP( lath*(ssq1-ssq2/local) ) / p0 |
./pkg/cheapaml/cheapaml_init_varia.F |
43 |
CHEAPAML_INIT_VARIA |
_RL local, localt |
./eesupp/src/scatter_xz.F |
16 |
SCATTER_XZ |
_RL local(1-OLx:sNx+OLx,nSx,nSy) |
./eesupp/src/scatter_xz.F |
38 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
./eesupp/src/scatter_xz.F |
57 |
SCATTER_XZ |
local(i,bi,bj) = global(iG) |
./eesupp/src/scatter_xz.F |
6 |
SCATTER_XZ |
SUBROUTINE SCATTER_XZ( global, local, myThid ) |
./eesupp/src/scatter_xz.F |
79 |
SCATTER_XZ |
CALL MPI_RECV (local, lbuff, MPI_DOUBLE_PRECISION, |
./eesupp/src/scatter_yz.F |
16 |
SCATTER_YZ |
_RL local(1-OLy:sNy+OLy,nSx,nSy) |
./eesupp/src/scatter_yz.F |
38 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
./eesupp/src/scatter_yz.F |
57 |
SCATTER_YZ |
local(j,bi,bj) = global(jG) |
./eesupp/src/scatter_yz.F |
6 |
SCATTER_YZ |
SUBROUTINE SCATTER_YZ( global, local, myThid ) |
./eesupp/src/scatter_yz.F |
79 |
SCATTER_YZ |
CALL MPI_RECV (local, lbuff, MPI_DOUBLE_PRECISION, |