- Timestamp:
- 2013-07-03T13:41:32+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/step.F90
r3865 r3953 89 89 ! Update data, open boundaries, surface boundary condition (including sea-ice) 90 90 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 91 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 92 IF( lk_tide.AND.(kstp /= nit000 )) CALL tide_init ( kstp ) 91 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) 93 92 IF( lk_tide ) CALL sbc_tide( kstp ) 94 IF( lk_obc ) CALL obc_dta ( kstp )! update dynamic and tracer data at open boundaries95 IF( lk_obc ) CALL obc_rad ( kstp )! compute phase velocities at open boundaries96 IF( lk_bdy ) CALL bdy_dta ( kstp, time_offset=+1 ) ! update dynamic andtracer data at open boundaries93 IF( lk_obc ) CALL obc_dta ( kstp ) ! update dynamic and tracer data at open boundaries 94 IF( lk_obc ) CALL obc_rad ( kstp ) ! compute phase velocities at open boundaries 95 IF( lk_bdy ) CALL bdy_dta ( kstp, time_offset=+1 ) ! update dynamic & tracer data at open boundaries 97 96 98 97 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 117 116 IF( lk_zdfgls ) CALL zdf_gls( kstp ) ! GLS closure scheme for Kz 118 117 IF( lk_zdfkpp ) CALL zdf_kpp( kstp ) ! KPP closure scheme for Kz 119 IF( lk_zdfcst ) THEN! Constant Kz (reset avt, avm[uv] to the background value)118 IF( lk_zdfcst ) THEN ! Constant Kz (reset avt, avm[uv] to the background value) 120 119 avt (:,:,:) = rn_avt0 * tmask(:,:,:) 121 120 avmu(:,:,:) = rn_avm0 * umask(:,:,:)
Note: See TracChangeset
for help on using the changeset viewer.