Changeset 23074 for issm/trunk-jpl/test/NightlyRun/test4002.m

Timestamp:

08/07/18 20:02:12 (7 years ago)

Author:

dmenemen

Message:

speeding up test by downloading and building MITgcm only if needed

File:

• issm/trunk-jpl/test/NightlyRun/test4002.m (modified) (2 diffs)

issm/trunk-jpl/test/NightlyRun/test4002.m

@@ -4 +4 @@
 %Script control parameters
 steps=[1 2 3 4 5 6 7 8 9 10 11 12];
+steps=[1 2 3 4 5];
 final_time=1/365;
 
@@ -136 +137 @@
 
     %specify computational grid in SIZE.h
-    fidi=fopen('../MITgcm/code/SIZE.h.bak','r');
-    fido=fopen('../MITgcm/code/SIZE.h','w');
-    tline = fgetl(fidi);
-    fprintf(fido,'%s\n',tline);
-    while 1
+    if ~exist('../MITgcm/code/SIZE.h')
+        fidi=fopen('../MITgcm/code/SIZE.h.bak','r');
+        fido=fopen('../MITgcm/code/SIZE.h','w');
         tline = fgetl(fidi);
-        if ~ischar(tline), break, end
-        %do the change here: 
-        if strcmpi(tline,'     &           sNx =  20,'),
-            fprintf(fido,'%s%i%s\n','     &           sNx =  ',round(Nx/nPx),',');
-            continue;
-        end
-        if strcmpi(tline,'     &           sNy =  20,'),
-            fprintf(fido,'%s%i%s\n','     &           sNy =  ',round(Ny/nPy),',');
-            continue;
-        end
-        if strcmpi(tline,'     &           nPx =   1,'),
-            fprintf(fido,'%s%i%s\n','     &           nPx = ',nPx,',');
-            continue;
-        end
-        if strcmpi(tline,'     &           nPy =   2,'),
-            fprintf(fido,'%s%i%s\n','     &           nPy = ',nPy,',');
-            continue;
-        end
         fprintf(fido,'%s\n',tline);
+        while 1
+            tline = fgetl(fidi);
+            if ~ischar(tline), break, end
+            %do the change here: 
+            if strcmpi(tline,'     &           sNx =  20,'),
+                fprintf(fido,'%s%i%s\n','     &           sNx =  ',round(Nx/nPx),',');
+                continue;
+            end
+            if strcmpi(tline,'     &           sNy =  20,'),
+                fprintf(fido,'%s%i%s\n','     &           sNy =  ',round(Ny/nPy),',');
+                continue;
+            end
+            if strcmpi(tline,'     &           nPx =   1,'),
+                fprintf(fido,'%s%i%s\n','     &           nPx = ',nPx,',');
+                continue;
+            end
+            if strcmpi(tline,'     &           nPy =   2,'),
+                fprintf(fido,'%s%i%s\n','     &           nPy = ',nPy,',');
+                continue;
+            end
+            fprintf(fido,'%s\n',tline);
+        end
+        %close  files
+        fclose(fidi);
+        fclose(fido);
     end
-    %close  files
-    fclose(fidi);
-    fclose(fido);
-
-         system(['../MITgcm/build.sh generic ' pwd '/../MITgcm']);
+
+    system(['../MITgcm/build.sh generic ' pwd '/../MITgcm']);
 end
 % }}}