Changeset 1877 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Sep 25, 2013, 3:35:04 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Ménage sur le code pour éliminer les calculs spécifiques ISCCP hors COSP
Un certain nombre de variables non utilisées dans physiq.F90 ont aussi
été supprimée. Environ 840 lignes supprimées du code physiq.F90

---

Code cleanup to eliminate specific references to ISCCP outside the COSP
library. Unused variables have been cleaned up from the physiq.F90 routine
as well.

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -161 +161 @@
   REAL, SAVE :: freq_outNMC_omp(3), freq_calNMC_omp(3)
   CHARACTER*4, SAVE :: type_run_omp
-  LOGICAL,SAVE :: ok_isccp_omp
   LOGICAL,SAVE :: ok_cosp_omp
   LOGICAL,SAVE :: ok_mensuelCOSP_omp,ok_journeCOSP_omp,ok_hfCOSP_omp
@@ -1351 +1350 @@
   type_run_omp = 'AMIP'
   call getin('type_run',type_run_omp)
-
-!
-!Config Key  = ok_isccp
-!Config Desc =
-!Config Def  = .true.
-!Config Help =
-!
-! ok_isccp = .true.
-  ok_isccp_omp = .false.
-  call getin('ok_isccp',ok_isccp_omp)
 
 !
@@ -1799 +1788 @@
     iflag_cvl_sigd = iflag_cvl_sigd_omp
     type_run = type_run_omp
-    ok_isccp = ok_isccp_omp
     ok_cosp = ok_cosp_omp
     ok_mensuelCOSP = ok_mensuelCOSP_omp
@@ -1972 +1960 @@
   write(lunout,*)' iflag_clos = ', iflag_clos
   write(lunout,*)' type_run = ',type_run 
-  write(lunout,*)' ok_isccp = ',ok_isccp 
   write(lunout,*)' ok_cosp = ',ok_cosp
   write(lunout,*)' ok_mensuelCOSP = ',ok_mensuelCOSP