Changeset 2455 for branches/nemo_v3_3_beta/NEMOGCM/TOOLS/NESTING/src/agrif_interpolation.f90

Timestamp:

2010-12-06T12:55:53+01:00 (13 years ago)

Author:

smasson

Message:

v3_3_bet: bugfix in nesting tools, see #773

File:

• branches/nemo_v3_3_beta/NEMOGCM/TOOLS/NESTING/src/agrif_interpolation.f90 (modified) (4 diffs)

branches/nemo_v3_3_beta/NEMOGCM/TOOLS/NESTING/src/agrif_interpolation.f90

@@ -22 +22 @@
   ! module containing subroutine used for :           *
   !   - Forcing data interpolation              *
-  !   - Parent to Child coordinates interpolation           *
+  !   - Parent to Child coordinates interpolation        *
   !                           *
   !************************************************************************
@@ -33 +33 @@
   !   subroutine agrif_interp             *
   !                        *
-  ! subroutine to interpolate coordinates          *
+  ! subroutine to interpolate coordinates       *
   !                        *
   ! - input :                    *
-  !     tabin : coarse grid coordinate variable          *
+  !     tabin : coarse grid coordinate variable       *
   !   typevar : position of interpolated variable on cells  *
   !                        *
@@ -499 +499 @@
     CALL set_child_name(filename,Child_file) 
     CALL set_child_name(parent_coordinate_file,Childcoordinates)
-    CALL set_child_name(parent_bathy_level,childbathy)
+    CALL set_child_name(parent_meshmask_file,childbathy)
     WRITE(*,*) 'Child grid file name = ',TRIM(Child_file)
     !
@@ -541 +541 @@
        ALLOCATE(mask(numlon,numlat,N))
        CALL Init_mask(childbathy,G1,1,1)
-       CALL Init_mask(parent_bathy_level,G0,1,1)
+       CALL Init_mask(parent_meshmask_file,G0,1,1)
        !
     ENDIF