62 USE modi_get_default_nam_n
68 USE yomhook
,ONLY : lhook, dr_hook
69 USE parkind1
,ONLY : jprb
81 TYPE(ocean_t),
INTENT(INOUT) :: o
84 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
94 REAL(KIND=JPRB) :: zhook_handle
97 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SEAFLUX_N',0,zhook_handle)
102 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_SEAFLUX_N',1,zhook_handle)
103 IF (iludes==0)
RETURN
107 IF (imi.NE.-1 .AND. lnam_read)
THEN
120 CALL
posnam(iludes,
'NAM_SEAFLUXN',gfound,iluout)
121 IF (gfound)
READ(unit=iludes,nml=nam_seafluxn)
122 CALL
posnam(iludes,
'NAM_DIAG_SURFN',gfound,iluout)
123 IF (gfound)
READ(unit=iludes,nml=nam_diag_surfn)
124 CALL
posnam(iludes,
'NAM_CH_SEAFLUXN',gfound,iluout)
125 IF (gfound)
READ(unit=iludes,nml=nam_ch_seafluxn)
126 CALL
posnam(iludes,
'NAM_DIAG_OCEANN',gfound,iluout)
127 IF (gfound)
READ(unit=iludes,nml=nam_diag_oceann)
129 CALL
posnam(iludes,
'NAM_SEAICEN',gfound,iluout)
130 IF (gfound)
READ(unit=iludes,nml=nam_seaicen)
132 CALL
test_nam_var_surf(iluout,
'CSEA_FLUX',csea_flux,
'DIRECT',
'ITERAT',
'ECUME ',
'ECUME6',
'COARE3')
135 CALL
test_nam_var_surf(iluout,
'CINTERPOL_SST',cinterpol_sst,
'LINEAR',
'UNIF ',
'QUADRA',
'NONE ')
136 CALL
test_nam_var_surf(iluout,
'CINTERPOL_SSS',cinterpol_sss,
'LINEAR',
'UNIF ',
'QUADRA',
'NONE ')
137 CALL
test_nam_var_surf(iluout,
'CINTERPOL_SIC',cinterpol_sic,
'LINEAR',
'UNIF ',
'NONE ')
138 CALL
test_nam_var_surf(iluout,
'CINTERPOL_SIT',cinterpol_sit,
'LINEAR',
'UNIF ',
'NONE ')
149 IF (lhook) CALL dr_hook(
'READ_DEFAULT_SEAFLUX_N',1,zhook_handle)
subroutine read_default_seaflux_n(CHS, DGO, DGS, DGSI, O, S, HPROGRAM)
subroutine update_nam_ch_seafluxn(CHS)
subroutine init_nam_ch_seafluxn(CHS)
subroutine init_nam_seaicen(DGSI, S)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_diag_surfn(DGF)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine init_nam_diag_oceann(DGO)
subroutine update_nam_seafluxn(O, S)
subroutine update_nam_seaicen(DGSI, S)
subroutine update_nam_diag_oceann(DGO)
integer function get_current_model_index_surfex()
subroutine init_nam_seafluxn(O, S)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)