source: LMDZ5/branches/LMDZ5-DOFOCO/tools/install_1d_src.sh @ 3443

Last change on this file since 3443 was 1788, checked in by idelkadi, 11 years ago

Annuler la correction
-e-Cette ligne, et les suivantes ci-dessous, seront ignorées--

M install_1d_src.sh

  • Property svn:executable set to *
File size: 1.9 KB
Line 
1# This is a script in Bash.
2
3# This script installs the source files of LMDZ 1D. Run this script
4# from "libf".
5
6set -xe
7
8# cp --no-clobber phylmd/* phy1d:
9cd phylmd
10set +x
11for my_file in *
12  do
13  if [[ ! -a ../phy1d/$my_file ]]
14      then
15      cp $my_file ../phy1d
16  fi
17done
18set -x
19
20cd ../phy1d
21if grep -iq "subroutine *writelim" *.F *.F90
22    then
23    mv 1DUTILS.h_no_writelim 1DUTILS.h
24else
25    mv 1DUTILS.h_with_writelim 1DUTILS.h
26    rm -f ttt
27    sed -e "s/^ *call *writelim *( *1 *,/      call writelim (/" lmdz1d.F >ttt
28    rm -f lmdz1d.F
29    mv ttt lmdz1d.F
30fi
31rm 1DUTILS.h*writelim
32rm wrgradsfi.F # already in 1DUTILS.h
33
34sed -i -e "/add_phys_tend.*_vdf/s/add_phys_tend/add_pbl_tend/" physiq.F
35
36sed -i -e "/SUBROUTINE *convers_timesteps/,/END SUBROUTINE convers_timesteps/{
37 /USE *phys_cal_mod/d
38 /use *ioipsl/a\\
39    USE phys_cal_mod
40 s/ioget_mon_len(annee_ref,day_ref)/mth_len/
41};/SUBROUTINE *phys_output_open/,/end *subroutine *phys_output_open/{
42 /USE *ioipsl/a\\
43  USE phys_cal_mod, only : hour
44 /ymds2ju.*annee_ref.*zjulian/c\\
45!!!      CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)       !jyg \\
46! correction pour l heure initiale                               !jyg \\
47!                                                                !jyg \\
48      CALL ymds2ju(annee_ref, 1, idayref, hour, zjulian)         !jyg
49}" phys_output_mod.F90
50
51sed -i -e "/^ *INCLUDE *\"temps.h\"/{
52 a\\
53!****************************************************************************************\\
54! Declarations specifiques pour le 1D. A reprendre \\
55    INCLUDE \"flux_arp.h\"
56 }; /^.*REAL *::.*fsens *, *flat/d; /^.*LOGICAL *::.*ok_flux_surf/d; /^.*COMMON.*flux_arp.*/d " pbl_surface_mod.F90
57
58 ln -s ../dyn3d/mod_const_mpi.F90 .
59 ln -s ../dyn3d/infotrac.F90 .
60 ln -s ../dyn3d/conf_gcm.F .
61 ln -s ../dyn3d/pres2lev* .
62 ln -s ../dyn3d/control_mod.F90 .
63 ln -s ../dyn3d/q_sat.F .
64 ln -s ../dyn3d/disvert.F90 .
Note: See TracBrowser for help on using the repository browser.