Changeset 177 for trunk/NEMO/OPA_SRC/restart_dimg.h90
- Timestamp:
- 2004-11-05T15:01:20+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/restart_dimg.h90
r107 r177 547 547 # endif 548 548 CLOSE(inum) 549 ! In case of restart with neuler = 0 then put all before fields = to now fields 550 IF ( neuler == 0 ) THEN 551 tb(:,:,:)=tn(:,:,:) 552 sb(:,:,:)=sn(:,:,:) 553 ub(:,:,:)=un(:,:,:) 554 vb(:,:,:)=vn(:,:,:) 555 rotb(:,:,:)=rotn(:,:,:) 556 hdivb(:,:,:)=hdivn(:,:,:) 557 #if defined key_dynspg_fsc 558 ! free surface formulation (eta) 559 sshb(:,:)=sshn(:,:) 560 #else 561 ! rigid lid 562 bsfb(:,:)=bsfn(:,:) 563 #endif 564 ENDIF 565 549 566 550 567 END SUBROUTINE rst_read
Note: See TracChangeset
for help on using the changeset viewer.