| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/CHEAPAML.h |
34 |
NO PROCEDURE |
& wavesh, wavesp, Cheapmask, CheapHgrid, |
|
./pkg/cheapaml/CHEAPAML.h |
52 |
NO PROCEDURE |
_RL wavesh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
182 |
CHEAPAML_COARE3_FLUX |
zo=1200. _d 0*wavesh(i,j,bi,bj)*(wavesh(i,j,bi,bj)/lwave)**4.5 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
411 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = bWght*wavesh0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
422 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = 0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
558 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( WaveHFile,' ',wavesh,0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
570 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
577 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL( wavesh, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
641 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
670 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
701 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
724 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
73 |
CHEAPAML_INIT_VARIA |
wavesh (i,j,bi,bj) = 0. _d 0 |