Changeset 3544 for trunk/LMDZ.PLUTO
- Timestamp:
- Dec 10, 2024, 4:24:49 PM (13 days ago)
- Location:
- trunk/LMDZ.PLUTO
- Files:
-
- 14 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90
r3539 r3544 89 89 use wxios, only: wxios_context_init, xios_context_finalize 90 90 #endif 91 USE mod_grid_phy_lmdz, ONLY: grid_type,unstructured,regular_lonlat 91 92 use write_output_mod, only: write_output 92 93 … … 952 953 ! albedo(i,:) = albedo(1,:) 953 954 ! enddo 955 ! AF24: TODO check albedo has been initialized here 954 956 955 957 if (firstcall.and.callsoil) then … … 2066 2068 2067 2069 if(lastcall) then 2068 ztime_fin = ptime + ptimestep/(float(iphysiq)*daysec) 2069 2070 IF (grid_type==unstructured) THEN !IF DYNAMICO 2071 ! DYNAMICO: no need to add a dynamics time step to ztime_fin 2072 ztime_fin = ptime 2073 ELSE ! LMDZ 2074 ztime_fin = ptime + ptimestep/(float(iphysiq)*daysec) 2075 ENDIF ! of IF (grid_type==unstructured) 2070 2076 !! Update surface ice distribution to iterate to steady state if requested 2071 2077 !! AF24: removed
Note: See TracChangeset
for help on using the changeset viewer.