Ignore:
Timestamp:
2018-12-14T15:25:36+01:00 (23 months ago)
Author:
clem
Message:

ocean restart from nesting tool should now work. BGC restart must still be debugged but it is out of my expertise

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/src/agrif_create_restart_ice.f90

    r10383 r10393  
    7979  ENDIF 
    8080 
    81  
    8281  ! 
    8382  WRITE(*,*) '' 
     
    230229         
    231230     CASE DEFAULT 
    232         IF( Get_NbDims(TRIM(Ncdf_varname(ji)),TRIM(restart_ice_file)) == 4 ) THEN 
     231        IF( Get_NbDims(TRIM(varname),TRIM(restart_ice_file)) == 4 ) THEN 
    233232           vert_coord_name = 'numcat' 
    234         ELSEIF( Get_NbDims(TRIM(Ncdf_varname(ji)),TRIM(restart_ice_file)) == 3 ) THEN 
     233        ELSEIF( Get_NbDims(TRIM(varname),TRIM(restart_ice_file)) == 3 ) THEN 
    235234           vert_coord_name = '1' 
    236235        ENDIF 
     
    240239     END SELECT 
    241240 
     241     ! --- start interpolation --- ! 
    242242     IF( Interpolation ) THEN 
    243243        ! 
     
    339339  ! 
    340340  WRITE(*,*) ' ' 
     341  WRITE(*,*) ' --- list of all the variables that have been interpolated --- ' 
     342  WRITE(*,*) Ncdf_varname 
     343  WRITE(*,*) ' ' 
    341344  WRITE(*,*) '******* restart file successfully created *******'  
    342345  WRITE(*,*) ' ' 
Note: See TracChangeset for help on using the changeset viewer.