Changeset 621 for LMDZ4

Timestamp:

Apr 28, 2005, 12:55:58 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Un peu de menage sur les differentes versions de la routine oasis utilisee:
Seules existent oasis.dummy .psmile .true et ce sont ces routines qu'il
faut modifier. oasis.F ou oasis.F90 n'existent pas dans l'archive CVS et
ne sont creees qu'a la compilation. Si on s'amuse à les modifier, les modifications
seront perdues a la prochaine compilation
LF

Location:

LMDZ4/trunk

Files:

• libf/phylmd/oasis.F (deleted)
• libf/phylmd/raddim.h (modified) (1 diff)
• makegcm (modified) (6 diffs)

LMDZ4/trunk/libf/phylmd/raddim.h

@@ -1 +1 @@
 !
-! $Header$
+! $Header $
 !
       INTEGER kdlon, kflev

LMDZ4/trunk/makegcm

@@ -29 +29 @@
 ###### VERSION LMDZ.4
 # set LMDGCM=$HOME/LMDZ.4
+#set LMDGCM="`pwd`"
 #
 
@@ -404 +405 @@
 
      case -psmile
-        set psmile="$2" ; shift ; shift ; goto top
+        set psmile="$2" 
+        if ( "$psmile" == 'true' ) then
+          set couple='true'
+        endif
+        shift ; shift ; goto top
   
      case -t
@@ -479 +484 @@
 endif
 
+if ( "$psmile" == 'true' ) then
+   set optim="$optim -DCPP_PSMILE"
+   set optim90="$optim90 -DCPP_PSMILE"
+   set optimtru90="$optimtru90 -DCPP_PSMILE"
+endif
 
 ########################################################################
@@ -651 +661 @@
   banner couple
   pwd
-  if ( `diff $libf/phy$physique/oasis.F $libf/phy$physique/oasis.true | wc -w` ) then
-   \cp $libf/phy$physique/oasis.F $libf/phy$physique/oasis.dummy
-   \cp $libf/phy$physique/oasis.true $libf/phy$physique/oasis.F
+  if ( "$psmile" == 'true' ) then
+     if ( -f $libf/phy$physique/oasis.F ) then 
+        \rm $libf/phy$physique/oasis.F 
+     endif
+     if ( ! -f $libf/phy$physique/oasis.F90 ) then
+       \cp $libf/phy$physique/oasis.psmile $libf/phy$physique/oasis.F90 
+     endif
+     if ( `diff $libf/phy$physique/oasis.F90 $libf/phy$physique/oasis.psmile | wc -w` ) then
+       \cp $libf/phy$physique/oasis.psmile $libf/phy$physique/oasis.F90
+     endif
+  else
+     if ( -f $libf/phy$physique/oasis.F90 ) then
+       \rm $libf/phy$physique/oasis.F90
+     endif
+     if (! -f $libf/phy$physique/oasis.F ) then
+       \cp $libf/phy$physique/oasis.true $libf/phy$physique/oasis.F
+     else
+       if ( `diff $libf/phy$physique/oasis.F $libf/phy$physique/oasis.true | wc -w` ) then
+#         \cp $libf/phy$physique/oasis.F $libf/phy$physique/oasis.dummy
+         \cp $libf/phy$physique/oasis.true $libf/phy$physique/oasis.F
+       endif
+     endif
   endif
 else
-  if ( `diff $libf/phy$physique/oasis.F $libf/phy$physique/oasis.dummy | wc -w` ) then
-   \cp $libf/phy$physique/oasis.F $libf/phy$physique/oasis.true
-   \cp $libf/phy$physique/oasis.dummy $libf/phy$physique/oasis.F
+  if ( -f $libf/phy$physique/oasis.F90 ) then
+    \rm $libf/phy$physique/oasis.F90
+  endif
+  if (! -f $libf/phy$physique/oasis.F ) then
+    \cp $libf/phy$physique/oasis.dummy $libf/phy$physique/oasis.F
+  else
+    if ( `diff $libf/phy$physique/oasis.F $libf/phy$physique/oasis.dummy | wc -w` ) then
+      \cp $libf/phy$physique/oasis.F $libf/phy$physique/oasis.true
+      \cp $libf/phy$physique/oasis.dummy $libf/phy$physique/oasis.F
+    endif
   endif
 endif
@@ -768 +804 @@
      endif
      if ($couple == true) then
+       if ($psmile == true) then
+       set opt_link="$opt_link -lsxioipsl -float0 $optdbl -P static $NCDFLIB "
+       else
        set opt_link="$opt_link -lsxioipsl -loasis2.4_mpi2 -float0 $optdbl -P static $NCDFLIB "
-       if ($psmile == true) then
        endif
      else
@@ -794 +832 @@
      endif
      if ($couple == true) then
-       set opt_link="$opt_link -lsxioipsl -loasis2.4_mpi2 -float0 -size_t64 $optdbl -P static $NCDFLIB "
+        if ($psmile == true) then
+        set opt_link="$opt_link -lsxioipsl -float0 -size_t64 $optdbl -P static $NCDFLIB "
+        else
+        set opt_link="$opt_link -lsxioipsl -loasis2.4_mpi2 -float0 -size_t64 $optdbl -P static $NCDFLIB "
+        endif
      else
        set opt_link="$opt_link -lsxioipsl -float0 -size_t64 $optdbl -P static $NCDFLIB "