Changeset 1414 for LMDZ4/trunk/libf/cosp/cosp_simulator.F90
- Timestamp:
- Jul 15, 2010, 5:21:22 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/cosp/cosp_simulator.F90
r1279 r1414 65 65 !+++++++++ Radar model ++++++++++ 66 66 if (cfg%Lradar_sim) then 67 call system_clock(t0,count_rate,count_max)68 67 call cosp_radar(gbx,sgx,sghydro,sgradar) 69 call system_clock(t1,count_rate,count_max)70 print *, '%%%%%% Radar:', (t1-t0)*1.0/count_rate, ' s'71 else72 print *, '%%%%%% Radar not used'73 68 endif 74 69 75 70 !+++++++++ Lidar model ++++++++++ 76 71 if (cfg%Llidar_sim) then 77 call system_clock(t0,count_rate,count_max)78 72 call cosp_lidar(gbx,sgx,sghydro,sglidar) 79 call system_clock(t1,count_rate,count_max)80 print *, '%%%%%% Lidar:', (t1-t0)*1.0/count_rate, ' s'81 else82 print *, '%%%%%% Lidar not used'83 73 endif 84 74 … … 86 76 !+++++++++ ISCCP simulator ++++++++++ 87 77 if (cfg%Lisccp_sim) then 88 call system_clock(t0,count_rate,count_max)89 78 call cosp_isccp_simulator(gbx,sgx,isccp) 90 call system_clock(t1,count_rate,count_max)91 print *, '%%%%%% ISCCP:', (t1-t0)*1.0/count_rate, ' s'92 else93 print *, '%%%%%% ISCCP not used'94 79 endif 95 80 96 81 !+++++++++ MISR simulator ++++++++++ 97 82 if (cfg%Lmisr_sim) then 98 call system_clock(t0,count_rate,count_max)99 83 call cosp_misr_simulator(gbx,sgx,misr) 100 call system_clock(t1,count_rate,count_max)101 print *, '%%%%%% MISR:', (t1-t0)*1.0/count_rate, ' s'102 else103 print *, '%%%%%% MISR not used'104 84 endif 105 85 106 86 107 87 !+++++++++++ Summary statistics +++++++++++ 108 ! write(*,*) 'Stats:'109 ! read(*,*) c110 88 if (cfg%Lstats) then 111 call system_clock(t0,count_rate,count_max)112 89 call cosp_stats(gbx,sgx,cfg,sgradar,sglidar,vgrid,stradar,stlidar) 113 call system_clock(t1,count_rate,count_max) 114 print *, '%%%%%% Stats:', (t1-t0)*1.0/count_rate, ' s' 115 endif 116 !+++++++++++ change of units after computation of statistics +++++++++++ 117 if (cfg%Llidar_sim) then 118 where((sglidar%beta_tot > 0.0) .and. (sglidar%beta_tot /= R_UNDEF)) 119 sglidar%beta_tot = log10(sglidar%beta_tot) 120 elsewhere 121 sglidar%beta_tot = R_UNDEF 122 end where 90 ! print *, '%%%%%% Stats:', (t1-t0)*1.0/count_rate, ' s' 123 91 endif 124 92 93 125 94 END SUBROUTINE COSP_SIMULATOR 126 95
Note: See TracChangeset
for help on using the changeset viewer.