Changeset 4203 for dynamico_lmdz/simple_physics/bash

Timestamp:

Dec 20, 2019, 3:25:27 PM (5 years ago)

Author:

dubos

Message:

simple_physics : cleanup Mellor & Yamada

Location:

dynamico_lmdz/simple_physics/bash

Files:

• convert.f90 (added)
• replace_keywords.sh (modified) (2 diffs)

dynamico_lmdz/simple_physics/bash/replace_keywords.sh

@@ -10 +10 @@
 function replace_key()
 {
-    LOW=$1
-    UP=$2
+    LOW="$1"
+    UP="$2"
     sed -i -e "s/\b${LOW}\b/${UP}/g" $3
 }
@@ -22 +22 @@
 # enddo => ENDDO
     replace_key subroutine SUBROUTINE $NEW
+    replace_key 'do i=' 'DO i=' $NEW
+    replace_key 'do k=' 'DO k=' $NEW
+    replace_key 'end do' 'END DO' $NEW
+    replace_key 'parameter' 'PARAMETER' $NEW
+    replace_key 'integer' 'INTEGER' $NEW
+    replace_key 'real' 'REAL' $NEW
+    replace_key 'then' 'THEN' $NEW
+    replace_key 'else' 'ELSE' $NEW
+    replace_key 'endif' 'END IF' $NEW
+    replace_key 'end if' 'END IF' $NEW
     diff $NEW $ORIG
     cp -i -u $NEW $ORIG