Changeset 10393 for utils/tools/NESTING/src/agrif_create_restart_ice.f90

Timestamp:

2018-12-14T15:25:36+01:00 (5 years 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:

• utils/tools/NESTING/src/agrif_create_restart_ice.f90 (modified) (4 diffs)

utils/tools/NESTING/src/agrif_create_restart_ice.f90

@@ -79 +79 @@
   ENDIF
 
-
   !
   WRITE(*,*) ''
@@ -230 +229 @@
         
      CASE DEFAULT
-        IF( Get_NbDims(TRIM(Ncdf_varname(ji)),TRIM(restart_ice_file)) == 4 ) THEN
+        IF( Get_NbDims(TRIM(varname),TRIM(restart_ice_file)) == 4 ) THEN
            vert_coord_name = 'numcat'
-        ELSEIF( Get_NbDims(TRIM(Ncdf_varname(ji)),TRIM(restart_ice_file)) == 3 ) THEN
+        ELSEIF( Get_NbDims(TRIM(varname),TRIM(restart_ice_file)) == 3 ) THEN
            vert_coord_name = '1'
         ENDIF
@@ -240 +239 @@
      END SELECT
 
+     ! --- start interpolation --- !
      IF( Interpolation ) THEN
         !
@@ -339 +339 @@
   !
   WRITE(*,*) ' '
+  WRITE(*,*) ' --- list of all the variables that have been interpolated --- '
+  WRITE(*,*) Ncdf_varname
+  WRITE(*,*) ' '
   WRITE(*,*) '******* restart file successfully created *******' 
   WRITE(*,*) ' '