Changeset 988 for trunk/LMDZ.GENERIC/makegcm_pgf90

Timestamp:

Jun 12, 2013, 9:53:44 AM (11 years ago)

Author:

emillour

Message:

Generic GCM:

• Moved "newstart" (and related "lect_start_archive.F") to phystd directory
• Adapted makegcm_* scripts to enable compiling main prog from physics
• Added in newstart the possibility to not read in any surface.nc file (when loading a start_archive) with keyword "none" (instead of surface file name)
• Some general cleanup:
  • in bibio: removed unused lmdstd.h readstd.F writestd.F mywrite.F

readcoord.F scatter.F gather.F ini36.F from36.F to36.F
lnblnk.F (F90 len_trim() should be used instead)

• in dyn3d: removed unused inigrads.F wrgrads.F gradsdef.h

xvik.F (specific to current Mars)

EM

File:

• trunk/LMDZ.GENERIC/makegcm_pgf90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/makegcm_pgf90

@@ -562 +562 @@
 if ( $dimension == 1 ) then
   echo pas de dynamique
-  set dyn="L_DYN= DYN= L_FILTRE= DIRMAIN=phy$physique "
+  set dyn="L_DYN= DYN= L_FILTRE= "
 endif
 endif
@@ -732 +732 @@
 
 set source_code=${code}.F
-if (-f $LMDGCM/libf/phystd/${code}.F90) then
+# handle cases when the main program is in the physics directory
+if (-f $LMDGCM/libf/phy${physique}/${code}.F) then
+  set dyn="$dyn DIRMAIN=phy$physique "
+endif
+if (-f $LMDGCM/libf/phy${physique}/${code}.F90) then
   set source_code=${code}.F90
+  set dyn="$dyn DIRMAIN=phy$physique "
 endif