Changeset 10381 for utils/tools/NESTING/src/agrif_create_restart.f90

Timestamp:

2018-12-11T21:00:08+01:00 (5 years ago)

Author:

clem

Message:

attempt to correct several bugs in the NESTING tools. With this version, domcfg.nc file should be written correctly and the partial steps should be taken into account.

File:

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

utils/tools/NESTING/src/agrif_create_restart.f90

@@ -94 +94 @@
   CALL read_namelist(namelistname)
   !      
-  IF(TRIM(restart_file) == '/NULL') THEN
+  IF(TRIM(restart_file) == '') THEN
      WRITE(*,*) 'no restart file specified in ',TRIM(namelistname)
      STOP
@@ -113 +113 @@
   !       
   CALL set_child_name(parent_coordinate_file,Childcoordinates)   
-  CALL set_child_name(parent_bathy_file,Childbathy) 
+  CALL set_child_name(parent_bathy_level,Childbathy) 
   CALL set_child_name(parent_bathy_meter,Childbathymeter)   
   !
@@ -165 +165 @@
   ENDIF
   !
-  CALL Init_mask(parent_bathy_file,G0,x,y)
+  CALL Init_mask(parent_bathy_level,G0,x,y)
   CALL Init_mask(childbathy,G1,1,1)
 
@@ -875 +875 @@
   !      
   IF(partial_steps) THEN
-     status = Read_Bathymeter(TRIM(Childbathymeter),G1)
+     status = Read_Bathy_Meter(TRIM(Childbathymeter),G1)
      CALL get_scale_factors( G1,fse3t,fse3u,fse3v )
   ELSE