Changeset 7351 for branches/2016/dev_INGV_UKMO_2016/NEMOGCM/TOOLS/NESTING/src/agrif_create_restart.f90
- Timestamp:
- 2016-11-28T17:04:10+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/TOOLS/NESTING/src/agrif_create_restart.f90
r2455 r7351 411 411 ENDIF 412 412 ! 413 CASE('nfice','nfbulk','kt','ndastp','adatrj','rdt' ,'rdttra1')413 CASE('nfice','nfbulk','kt','ndastp','adatrj','rdt') 414 414 IF(.NOT. dimg ) THEN 415 415 WRITE(*,*) 'copy ',TRIM(Ncdf_varname(i)) … … 417 417 CALL Read_Ncdf_var(TRIM(Ncdf_varname(i)),TRIM(restart_file),tabtemp0dreal) 418 418 SELECT CASE (TRIM(Ncdf_varname(i))) 419 CASE('rdt' ,'rdttra1')419 CASE('rdt') 420 420 tabtemp0dreal = tabtemp0dreal/rhot 421 421 CASE('kt')
Note: See TracChangeset
for help on using the changeset viewer.