- Timestamp:
- 2017-08-18T17:01:53+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/step.F90
r8444 r8445 283 283 & gtui, gtvi, grui, grvi, arui, arvi, gzui, gzvi, ge3rui, ge3rvi ) ! of t, s, rd at the last ocean level 284 284 IF( ln_bias ) CALL dyn_bias( kstp ) 285 ELSE 286 IF ( .NOT. lk_dynspg_ts ) THEN 287 IF( ln_sto_eos ) CALL sto_pts( tsn ) 285 ELSE ! centered hpg (eos then time stepping) 286 IF ( .NOT. lk_dynspg_ts ) THEN ! eos already called in time-split case 287 IF( ln_sto_eos ) CALL sto_pts( tsn ) ! Random T/S fluctuations 288 288 CALL eos ( tsn, rhd, rhop, fsdept_n(:,:,:) ) ! now in situ density for hpg computation 289 289 IF( ln_zps .AND. .NOT. ln_isfcav) &
Note: See TracChangeset
for help on using the changeset viewer.