| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/CHEAPAML.h |
33 |
NO PROCEDURE |
& wavesh, wavesp, xrelf, CheapHgrid, |
|
./pkg/cheapaml/CHEAPAML.h |
51 |
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 |
425 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = bWght*wavesh0(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
436 |
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 |
569 |
CHEAPAML_FIELDS_LOAD |
CALL READ_FLD_XY_RL( WaveHFile,' ',wavesh,0,myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
581 |
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 |
588 |
CHEAPAML_FIELDS_LOAD |
_EXCH_XY_RL( wavesh, myThid ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
670 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
699 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
730 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
753 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=wavesh(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
72 |
CHEAPAML_INIT_VARIA |
wavesh (i,j,bi,bj) = 0. _d 0 |