Changeset 3210
- Timestamp:
- Feb 9, 2024, 11:34:50 AM (11 months ago)
- Location:
- trunk/LMDZ.COMMON/libf/evolution
- Files:
-
- 1 added
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/changelog.txt
r3206 r3210 232 232 == 08/02/2024 == JBC 233 233 Cleanings of unused variables/arguments and bad type conversions. 234 235 == 09/02/2024 == JBC 236 - Addition in the deftank of a bash script "modify_startfi_var.sh" to modify the value of a variable in a "startfi.nc". 237 - Small corrections due to r3206. -
trunk/LMDZ.COMMON/libf/evolution/conf_pem.F90
r3206 r3210 63 63 year_bp_ini = 0. 64 64 call getin('year_earth_bp_ini',year_earth_bp_ini) 65 year_bp_ini = int eger(year_earth_bp_ini/convert_years)65 year_bp_ini = int(year_earth_bp_ini/convert_years) 66 66 67 67 var_obl = .true. -
trunk/LMDZ.COMMON/libf/evolution/deftank/concat_diagpem.sh
r3145 r3210 18 18 output_file=($directory/$output_file) 19 19 20 21 ################################################################ 20 22 # Checking if everything is ok 21 23 if [ ! -d "$directory" ]; then -
trunk/LMDZ.COMMON/libf/evolution/deftank/inipem_orbit.sh
r3181 r3210 11 11 orb_data="obl_ecc_lsp.asc" 12 12 13 14 ###################################################################### 13 15 # Check if files necessary for the script exist 14 16 if [ ! -f "$orb_data" ]; then -
trunk/LMDZ.COMMON/libf/evolution/deftank/launch_pem.sh
r3182 r3210 21 21 LC_NUMERIC=en_US.UTF-8 22 22 23 24 ##################################################################### 23 25 #---------- Modify here the number of years to be simulated ------------ 24 26 ## set the number of years, either Martian or Earth years: … … 37 39 ## fill in the name of executable for reshape XIOS: 38 40 exeReshape="reshape_XIOS_output_64x48x29_phymars_seq.e" 41 ##################################################################### 42 39 43 40 44 #------ Check if files/directories necessary for the script exist ------ -
trunk/LMDZ.COMMON/libf/evolution/deftank/modify_startfi_orbit.sh
r3145 r3210 4 4 ###################################################################### 5 5 6 # Name of the file to be modified6 # Name of the file 7 7 name_file="startfi.nc" 8 8 … … 14 14 15 15 16 ###################################################################### 16 17 # Calculate modified values 17 18 if [ ! -f "$name_file" ]; then … … 48 49 # Update the netCDF file 49 50 # controle(15) = periheli ! min. Sun-Mars distance (Mkm) ̃206.66 50 # controle(16) = aphelie ! max. S Un-Mars distance (Mkm) ̃249.2251 # controle(16) = aphelie ! max. Sun-Mars distance (Mkm) ̃249.22 51 52 # controle(17) = peri_day ! date of perihelion (sols since N. spring) 52 53 # controle(18) = obliquit ! Obliquity of the planet (deg) ̃23.98 -
trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90
r3206 r3210 55 55 !======================================================================= 56 56 ! Local Variables 57 integer :: i, j, t! loop variables57 integer :: i, j, l, t ! loop variables 58 58 real :: A, B, mmean ! Molar Mass of co2 and no co2, A;B intermediate variables to compute the mean molar mass of the layer 59 59 integer :: islope ! loop for variables
Note: See TracChangeset
for help on using the changeset viewer.