Changeset 1259


Ignore:
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

Location:
LMDZ4/branches/LMDZ4-dev/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/clesphys.h

    r1258 r1259  
    5555       REAL freq_ISCCP, ecrit_ISCCP
    5656       REAL freq_COSP
     57       LOGICAL :: ok_cosp
    5758       INTEGER :: ip_ebil_phy, iflag_rrtm
    5859       LOGICAL :: ok_strato
     
    6869     &     , lev_histhf, lev_histday, lev_histmth                       &
    6970     &     , lev_histins, lev_histLES                                   &
    70      &     , type_run, ok_isccp, ok_regdyn                              &
     71     &     , type_run, ok_isccp, ok_regdyn, ok_cosp                     &
    7172     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
    7273     &     , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day               &
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90

    r1258 r1259  
    135135  CHARACTER*4, SAVE :: type_run_omp
    136136  LOGICAL,SAVE :: ok_isccp_omp
     137  LOGICAL,SAVE :: ok_cosp_omp
    137138  REAL,SAVE :: lonmin_ins_omp, lonmax_ins_omp, latmin_ins_omp, latmax_ins_omp
    138139  REAL,SAVE :: ecrit_hf_omp, ecrit_day_omp, ecrit_mth_omp, ecrit_reg_omp
     
    10661067  ok_isccp_omp = .false.
    10671068  call getin('ok_isccp',ok_isccp_omp)
     1069
     1070!
     1071!Config Key  = ok_cosp
     1072!Config Desc =
     1073!Config Def  = .false.
     1074!Config Help =
     1075!
     1076  ok_cosp_omp = .false.
     1077  call getin('ok_cosp',ok_cosp_omp)
    10681078
    10691079!
     
    14141424    type_run = type_run_omp
    14151425    ok_isccp = ok_isccp_omp
     1426    ok_cosp = ok_cosp_omp
    14161427    seuil_inversion=seuil_inversion_omp
    14171428    lonmin_ins = lonmin_ins_omp
     
    15541565  write(numout,*)' type_run = ',type_run
    15551566  write(numout,*)' ok_isccp = ',ok_isccp
     1567  write(numout,*)' ok_cosp = ',ok_cosp
    15561568  write(numout,*)' solarlong0 = ', solarlong0
    15571569  write(numout,*)' qsol0 = ', qsol0
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F

    r1258 r1259  
    304304              reliq(i,k)=rel
    305305              reice(i,k)=rei
    306               if (i.eq.1) then
    307               print*,'Dans newmicro rel, rei :',rel, rei
    308               print*,'Dans newmicro reliq, reice :',
    309      $             reliq(i,k),reice(i,k)
    310               endif
     306!              if (i.eq.1) then
     307!              print*,'Dans newmicro rel, rei :',rel, rei
     308!              print*,'Dans newmicro reliq, reice :',
     309!     $             reliq(i,k),reice(i,k)
     310!              endif
    311311
    312312            ENDDO
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

    r1258 r1259  
    31783178! Abderrahmane 24.08.09
    31793179
    3180 !      IF (ok_cosp) THEN
     3180      IF (ok_cosp) THEN
    31813181! adeclarer
    31823182#ifdef CPP_COSP
     
    32043204!     I          tauisccp,albisccp,meantbisccp,meantbclrisccp)
    32053205
    3206         ENDIF
    3207 
    3208 !      ENDIF
     3206         ENDIF
     3207
    32093208#endif
     3209       ENDIF  !ok_cosp
    32103210!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    32113211cAA
Note: See TracChangeset for help on using the changeset viewer.