Changeset 1259 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

Timestamp:

Nov 10, 2009, 11:24:15 AM (15 years ago)

Author:

idelkadi

Message:

-Rajout de la cles fortran ok_cosp pour tourner avec ou sans calcul cosp
-Declaration de ok_cosp dans clesphys.h
-Lecture dans physiq.def via conf_phys.F90
-Menage dans newmicro.F

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

@@ -135 +135 @@
   CHARACTER*4, SAVE :: type_run_omp
   LOGICAL,SAVE :: ok_isccp_omp
+  LOGICAL,SAVE :: ok_cosp_omp
   REAL,SAVE :: lonmin_ins_omp, lonmax_ins_omp, latmin_ins_omp, latmax_ins_omp
   REAL,SAVE :: ecrit_hf_omp, ecrit_day_omp, ecrit_mth_omp, ecrit_reg_omp
@@ -1066 +1067 @@
   ok_isccp_omp = .false.
   call getin('ok_isccp',ok_isccp_omp)
+
+!
+!Config Key  = ok_cosp
+!Config Desc =
+!Config Def  = .false.
+!Config Help =
+!
+  ok_cosp_omp = .false.
+  call getin('ok_cosp',ok_cosp_omp)
 
 !
@@ -1414 +1424 @@
     type_run = type_run_omp
     ok_isccp = ok_isccp_omp
+    ok_cosp = ok_cosp_omp
     seuil_inversion=seuil_inversion_omp
     lonmin_ins = lonmin_ins_omp
@@ -1554 +1565 @@
   write(numout,*)' type_run = ',type_run 
   write(numout,*)' ok_isccp = ',ok_isccp 
+  write(numout,*)' ok_cosp = ',ok_cosp
   write(numout,*)' solarlong0 = ', solarlong0
   write(numout,*)' qsol0 = ', qsol0