| File |
Line number |
Procedure |
Code |
|
./pkg/bulk_force/bulkf_fields_load.F |
115 |
BULKF_FIELDS_LOAD |
_RS empch0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/bulk_force/bulkf_fields_load.F |
161 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
285 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( EmpFile,empch0,intime0, |
|
./pkg/bulk_force/bulkf_fields_load.F |
296 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
340 |
BULKF_FIELDS_LOAD |
_EXCH_XY_RS(empch0, myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
381 |
BULKF_FIELDS_LOAD |
EmPch(i,j,bi,bj) = bWght*empch0(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
85 |
BULKF_FIELDS_LOAD |
& qnetch0, qnetch1, empch0, empch1 |