- Timestamp:
- Jun 25, 2024, 10:24:25 AM (6 months ago)
- Location:
- trunk/LMDZ.COMMON/libf/evolution
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/changelog.txt
r3388 r3389 389 389 == 20/06/2024 == JBC 390 390 Correction due to a wrong line introduced with r3387. 391 392 == 25/06/2024 == JBC 393 Correction to r3387 for the time limit stopping criterion. -
trunk/LMDZ.COMMON/libf/evolution/pem.F90
r3388 r3389 997 997 ! II_g Checking the stopping criterion 998 998 !------------------------ 999 1000 write(*,*) "Checking the stopping criteria..." 1001 call stopping_crit_h2o_ice(cell_area,h2oice_ini_surf,ini_h2oice_sublim,h2o_ice,stopPEM,ngrid) 1002 call stopping_crit_co2(cell_area,co2ice_ini_surf,ini_co2ice_sublim,co2_ice,stopPEM,ngrid,global_avg_press_PCM,global_avg_press_new,nslope) 1003 year_iter = year_iter + dt_pem 1004 i_myear = i_myear + dt_pem 1005 if (year_iter >= year_iter_max) stopPEM = 5 1006 if (i_myear >= n_myear) stopPEM = 6 999 1007 call system_clock(c2) 1000 1008 if (real((c2 - c1)/cr) >= timelimit - antetime) stopPEM = 7 1001 call stopping_crit_h2o_ice(cell_area,h2oice_ini_surf,ini_h2oice_sublim,h2o_ice,stopPEM,ngrid)1002 call stopping_crit_co2(cell_area,co2ice_ini_surf,ini_co2ice_sublim,co2_ice,stopPEM,ngrid,global_avg_press_PCM,global_avg_press_new,nslope)1003 1004 year_iter = year_iter + dt_pem1005 i_myear = i_myear + dt_pem1006 1007 write(*,*) "Checking the stopping criteria..."1008 if (year_iter >= year_iter_max) stopPEM = 51009 if (i_myear >= n_myear) stopPEM = 61010 1009 if (stopPEM > 0) then 1011 1010 select case (stopPEM)
Note: See TracChangeset
for help on using the changeset viewer.