Changeset 558
- Timestamp:
- 2006-10-27T17:17:48+02:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r508 r558 391 391 gcx (:,:) = 0.e0 392 392 gcxb(:,:) = 0.e0 393 sshb(:,:) = 0.e0 394 sshn(:,:) = 0.e0 393 IF( nn_rstssh == 1 ) THEN 394 sshb(:,:) = 0.e0 395 sshn(:,:) = 0.e0 396 ENDIF 395 397 ENDIF 396 398 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r553 r558 517 517 IF( neuler == 0 ) sshb(:,:) = sshn(:,:) 518 518 ELSE 519 sshb(:,:) = 0.e0 520 sshn(:,:) = 0.e0 519 IF( nn_rstssh == 1 ) THEN 520 sshb(:,:) = 0.e0 521 sshn(:,:) = 0.e0 522 ENDIF 521 523 ENDIF 522 524 IF( iom_varid( numror, 'sshn_b' ) > 0 ) THEN -
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
r557 r558 27 27 INTEGER :: no = 0 !: job number 28 28 INTEGER :: nrstdt = 0 !: control of the time step (0, 1 or 2) 29 INTEGER :: nn_rstssh = 0 !: hand made initilization of ssh or not (1/0) 29 30 INTEGER :: nit000 = 1 !: index of the first time step 30 31 INTEGER :: nitend = 10 !: index of the last time step -
trunk/NEMO/OPA_SRC/istate.F90
r544 r558 291 291 sshn(:,:) = sshb(:,:) ! set now ssh to the before value 292 292 293 IF( nn_rstssh /= 1 ) THEN 294 nn_rstssh = 1 ! hand-made initilization of ssh 295 CALL ctl_warn( 'istate_eel: force nn_rstssh = 1' ) 296 ENDIF 297 293 298 ! horizontal divergence and relative vorticity (curl) 294 299 CALL div_cur( nit000 )
Note: See TracChangeset
for help on using the changeset viewer.