Go to the source code of this file.
Functions/Subroutines | |
| subroutine | coupling_seaflux_n (CHS, DTS, DGS, O, OR, G, S, DST, SLT, HPROGRAM, HCOUPLING, PTIMEC, PTSTEP, KYEAR, KMONTH, KDAY, PTIME, KI, KSV, KSW, PTSUN, PZENITH, PZENITH2, PAZIM, PZREF, PUREF, PU, PV, PQA, PTA, PRHOA, PSV, PCO2, HSV, PRAIN, PSNOW, PLW, PDIR_SW, PSCA_SW, PSW_BANDS, PPS, PPA, PSFTQ, PSFTH, PSFTS, PSFCO2, PSFU, PSFV, PTRAD, PDIR_ALB, PSCA_ALB, PEMIS, PTSURF, PZ0, PZ0H, PQSURF, PPEW_A_COEF, PPEW_B_COEF, PPET_A_COEF, PPEQ_A_COEF, PPET_B_COEF, PPEQ_B_COEF, HTEST) |
| subroutine | sea_momentum_fluxes (PCD, PSFU, PSFV) |
| subroutine | complement_each_other_flux |
Function/Subroutine Documentation
◆ complement_each_other_flux()
| subroutine coupling_seaflux_n::complement_each_other_flux | ( | ) |
◆ coupling_seaflux_n()
| subroutine coupling_seaflux_n | ( | type(ch_seaflux_t), intent(inout) | CHS, |
| type(data_seaflux_t), intent(inout) | DTS, | ||
| type(seaflux_diag_t), intent(inout) | DGS, | ||
| type(ocean_t), intent(inout) | O, | ||
| type(ocean_rel_t), intent(inout) | OR, | ||
| type(grid_t), intent(inout) | G, | ||
| type(seaflux_t), intent(inout) | S, | ||
| type(dst_t), intent(inout) | DST, | ||
| type(slt_t), intent(inout) | SLT, | ||
| character(len=6), intent(in) | HPROGRAM, | ||
| character(len=1), intent(in) | HCOUPLING, | ||
| real, intent(in) | PTIMEC, | ||
| real, intent(in) | PTSTEP, | ||
| integer, intent(in) | KYEAR, | ||
| integer, intent(in) | KMONTH, | ||
| integer, intent(in) | KDAY, | ||
| real, intent(in) | PTIME, | ||
| integer, intent(in) | KI, | ||
| integer, intent(in) | KSV, | ||
| integer, intent(in) | KSW, | ||
| real, dimension(ki), intent(in) | PTSUN, | ||
| real, dimension(ki), intent(in) | PZENITH, | ||
| real, dimension(ki), intent(in) | PZENITH2, | ||
| real, dimension(ki), intent(in) | PAZIM, | ||
| real, dimension(ki), intent(in) | PZREF, | ||
| real, dimension(ki), intent(in) | PUREF, | ||
| real, dimension(ki), intent(in) | PU, | ||
| real, dimension(ki), intent(in) | PV, | ||
| real, dimension(ki), intent(in) | PQA, | ||
| real, dimension(ki), intent(in) | PTA, | ||
| real, dimension(ki), intent(in) | PRHOA, | ||
| real, dimension(ki,ksv), intent(in) | PSV, | ||
| real, dimension(ki), intent(in) | PCO2, | ||
| character(len=6), dimension(ksv), intent(in) | HSV, | ||
| real, dimension(ki), intent(in) | PRAIN, | ||
| real, dimension(ki), intent(in) | PSNOW, | ||
| real, dimension(ki), intent(in) | PLW, | ||
| real, dimension(ki,ksw), intent(in) | PDIR_SW, | ||
| real, dimension(ki,ksw), intent(in) | PSCA_SW, | ||
| real, dimension(ksw), intent(in) | PSW_BANDS, | ||
| real, dimension(ki), intent(in) | PPS, | ||
| real, dimension(ki), intent(in) | PPA, | ||
| real, dimension(ki), intent(out) | PSFTQ, | ||
| real, dimension(ki), intent(out) | PSFTH, | ||
| real, dimension(ki,ksv), intent(out) | PSFTS, | ||
| real, dimension(ki), intent(out) | PSFCO2, | ||
| real, dimension(ki), intent(out) | PSFU, | ||
| real, dimension(ki), intent(out) | PSFV, | ||
| real, dimension(ki), intent(out) | PTRAD, | ||
| real, dimension(ki,ksw), intent(out) | PDIR_ALB, | ||
| real, dimension(ki,ksw), intent(out) | PSCA_ALB, | ||
| real, dimension(ki), intent(out) | PEMIS, | ||
| real, dimension(ki), intent(out) | PTSURF, | ||
| real, dimension(ki), intent(out) | PZ0, | ||
| real, dimension(ki), intent(out) | PZ0H, | ||
| real, dimension(ki), intent(out) | PQSURF, | ||
| real, dimension(ki), intent(in) | PPEW_A_COEF, | ||
| real, dimension(ki), intent(in) | PPEW_B_COEF, | ||
| real, dimension(ki), intent(in) | PPET_A_COEF, | ||
| real, dimension(ki), intent(in) | PPEQ_A_COEF, | ||
| real, dimension(ki), intent(in) | PPET_B_COEF, | ||
| real, dimension(ki), intent(in) | PPEQ_B_COEF, | ||
| character(len=2), intent(in) | HTEST | ||
| ) |
Definition at line 14 of file coupling_seafluxn.F90.
Here is the call graph for this function:
Here is the caller graph for this function:
