- Timestamp:
- 2017-12-13T15:37:41+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8995 r9017 49 49 USE bdy_oce , ONLY: ln_bdy 50 50 USE usrdef_sbc ! user defined: surface boundary condition 51 USE usrdef_closea ! user defined:closed sea51 USE closea ! closed sea 52 52 ! 53 53 USE prtctl ! Print control (prt_ctl routine) … … 153 153 WRITE(numout,*) ' runoff / runoff mouths ln_rnf = ', ln_rnf 154 154 WRITE(numout,*) ' iceshelf formulation ln_isf = ', ln_isf 155 WRITE(numout,*) ' closed sea (=0/1) (set in namdom) nn_closea = ', nn_closea 155 WRITE(numout,*) ' special treatment of closed seas (set in namdom) ln_closea = ', ln_closea 156 IF(ln_closea) WRITE(numout,*) ' closed sea treatment (=0/1) (set in namdom) nn_closea = ', nn_closea 156 157 WRITE(numout,*) ' nb of iterations if land-sea-mask applied nn_lsm = ', nn_lsm 157 158 WRITE(numout,*) ' surface wave ln_wave = ', ln_wave … … 446 447 ! treatment of closed sea in the model domain (update freshwater fluxes) 447 448 ! Should not be ran if ln_diurnal_only 448 IF( .NOT.ln_diurnal_only .AND. nn_closea == 1 ) CALL sbc_clo( kt, cn_cfg, nn_cfg)449 IF( .NOT.ln_diurnal_only .AND. ln_closea .AND. nn_closea == 1 ) CALL sbc_clo( kt ) 449 450 450 451 !RBbug do not understand why see ticket 667
Note: See TracChangeset
for help on using the changeset viewer.