| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_load_climatology.F |
104 |
EBM_LOAD_CLIMATOLOGY |
_EXCH_XY_R4( SST, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
42 |
EBM_LOAD_CLIMATOLOGY |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
|
./pkg/ebm/ebm_load_climatology.F |
95 |
EBM_LOAD_CLIMATOLOGY |
CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid ) |
|
./model/inc/FFIELDS.h |
106 |
NO PROCEDURE |
_RS SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/FFIELDS.h |
90 |
NO PROCEDURE |
& , SST |
|
./verification/OpenAD/code/FFIELDS.h |
104 |
NO PROCEDURE |
_RS SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code/FFIELDS.h |
91 |
NO PROCEDURE |
& , SST |
|
./verification/natl_box/code/external_fields_load.F |
208 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
245 |
EXTERNAL_FIELDS_LOAD |
SST(i,j,bi,bj) = bWght*SST0(i,j,bi,bj) |
|
./model/src/external_fields_load.F |
357 |
EXTERNAL_FIELDS_LOAD |
& SST(1,sNy,1,1),SSS(1,sNy,1,1), |
|
./model/src/external_forcing_surf.F |
79 |
EXTERNAL_FORCING_SURF |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/external_forcing_surf.F |
90 |
EXTERNAL_FORCING_SURF |
& *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj)) |
|
./model/src/ini_forcing.F |
134 |
INI_FORCING |
CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid ) |
|
./model/src/ini_forcing.F |
177 |
INI_FORCING |
_EXCH_XY_R4(SST , myThid ) |
|
./model/src/ini_forcing.F |
52 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
201 |
CTRL_MAP_FORCING |
_EXCH_XY_R4(SST, myThid ) |
|
./pkg/seaice/seaice_do_diags.F |
114 |
SEAICE_DO_DIAGS |
CALL PLOT_FIELD_XYRS( SST , 'Current SST ', myIter, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
522 |
SEAICE_GET_FORCING |
SST(i,j,bi,bj) = bWghtSST * SSTsi0(i,j,bi,bj) + |
|
./pkg/seaice/seaice_get_forcing.F |
533 |
SEAICE_GET_FORCING |
SST(i,j,bi,bj) = aWghtSST * SSTsi0(i,j,bi,bj) + |