Changeset 4968 for branches/2014/dev_MERGE_2014/NEMOGCM/NEMO
- Timestamp:
- 2014-12-03T15:41:09+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r4946 r4968 858 858 ENDIF 859 859 ELSE IF( id1 > 0 ) THEN 860 IF(lwp) write(numout,*) 'dom_vvl_rst WARNING : fse3t_n not found in restart files' 861 IF(lwp) write(numout,*) 'fse3t_n set equal to fse3t_b.' 862 IF(lwp) write(numout,*) 'neuler is forced to 0' 863 CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 864 fse3t_n(:,:,:) = fse3t_b(:,:,:) 865 neuler = 0 866 ELSE IF( id2 > 0 ) THEN 860 867 IF(lwp) write(numout,*) 'dom_vvl_rst WARNING : fse3t_b not found in restart files' 861 868 IF(lwp) write(numout,*) 'fse3t_b set equal to fse3t_n.' 862 869 IF(lwp) write(numout,*) 'neuler is forced to 0' 870 CALL iom_get( numror, jpdom_autoglo, 'fse3t_n', fse3t_n(:,:,:) ) 863 871 fse3t_b(:,:,:) = fse3t_n(:,:,:) 864 872 neuler = 0
Note: See TracChangeset
for help on using the changeset viewer.