Changeset 11427 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OFF/nemogcm.F90
- Timestamp:
- 2019-08-09T15:44:20+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OFF/nemogcm.F90
r11053 r11427 119 119 #else 120 120 CALL dta_dyn ( istp, Nbb, Nnn, Naa ) ! Interpolation of the dynamical fields 121 IF( .NOT.ln_linssh ) CALL dta_dyn_swp( istp, Nbb, Nnn, Naa ) ! swap of sea surface height and vertical scale factors122 121 #endif 123 122 CALL trc_stp ( istp, Nbb, Nnn, Nrhs, Naa ) ! time-stepping 123 #if ! defined key_sed_off 124 IF( .NOT.ln_linssh ) CALL dta_dyn_atf( istp, Nbb, Nnn, Naa ) ! time filter of sea surface height and vertical scale factors 125 #endif 126 ! Swap time levels 127 Nrhs = Nbb 128 Nbb = Nnn 129 Nnn = Naa 130 Naa = Nrhs 131 ! 132 #if ! defined key_sed_off 133 IF( .NOT.ln_linssh ) CALL dta_dyn_sf_interp( istp, Nnn ) ! calculate now grid parameters 134 #endif 124 135 CALL stp_ctl ( istp, indic ) ! Time loop: control and print 125 136 istp = istp + 1 … … 333 344 #endif 334 345 335 CALL trc_init ( Nbb, Nnn, Naa )! Passive tracers initialization346 CALL trc_init ! Passive tracers initialization 336 347 CALL dia_ptr_init ! Poleward TRansports initialization 337 348
Note: See TracChangeset
for help on using the changeset viewer.