Changeset 10381 for utils/tools/NESTING/src/agrif_create_data.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_data.f90 (modified) (3 diffs)

utils/tools/NESTING/src/agrif_create_data.f90

@@ -37 +37 @@
   ! Interpolate U grid  data
   ji = 1
-  DO WHILE( TRIM(U_Files(ji)) .NE. '/NULL' )
+  DO WHILE( TRIM(U_Files(ji)) /= '' )
      PRINT *,'Grid U forcing files = ',u_files(ji)
      !        
@@ -48 +48 @@
   ! Interpolate V grid  data
   ji = 1
-  DO WHILE( TRIM(V_Files(ji)) .NE. '/NULL' )
+  DO WHILE( TRIM(V_Files(ji)) /= '' )
      PRINT *,'Grid V forcing files = ',v_files(ji)
      !        
@@ -58 +58 @@
   ! Interpolate flux data
   ji = 1
-  DO WHILE( TRIM(Flx_Files(ji)) .NE. '/NULL' )
+  DO WHILE( TRIM(Flx_Files(ji)) /= '' )
      PRINT *,'flxfiles = ',flx_files(ji)
      !