Changeset 6140 for trunk/NEMOGCM/TOOLS/NESTING/src/agrif_create_restart.f90
- Timestamp:
- 2015-12-21T12:35:23+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/TOOLS/NESTING/src/agrif_create_restart.f90
r2455 r6140 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.