Changeset 374 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts_jki.F90
- Timestamp:
- 2006-01-03T16:04:15+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_ts_jki.F90
r371 r374 114 114 IF(lwp) WRITE(numout,*) ' Number of sub cycle in 1 time-step (2 rdt) : icycle = ', FLOOR( 2*rdt/rdtbt ) 115 115 116 IF( ln_rstart ) THEN116 IF( .NOT. ln_rstart ) THEN 117 117 ! initialize barotropic specific arrays 118 118 sshb_b(:,:) = sshb(:,:) … … 148 148 z2dt_b = 2.0 * rdt ! baroclinic time step 149 149 IF ( neuler == 0 .AND. kt == nit000 ) z2dt_b = rdt 150 zfact1 = 0.5 * 0.25 150 zfact1 = 0.5 * 0.25 ! coefficient for vorticity estimates 151 151 zfact2 = 0.5 * 0.5 152 zraur = 1. / rauw ! 1 / volumic mass of pure water152 zraur = 1. / rauw ! 1 / volumic mass of pure water 153 153 154 154 ! -----------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.