- Timestamp:
- Dec 6, 2022, 12:01:16 AM (22 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90
r3605 r4368 39 39 USE comvert_mod, ONLY: ap, bp, preff, pressure_exner 40 40 USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy, start_time 41 USE strings_mod, ONLY: strLower 41 42 42 43 IMPLICIT NONE … … 74 75 USE exner_hyb_m, ONLY: exner_hyb 75 76 USE exner_milieu_m, ONLY: exner_milieu 76 USE infotrac, ONLY: nqtot, t name77 USE infotrac, ONLY: nqtot, tracers 77 78 USE filtreg_mod 78 79 IMPLICIT NONE … … 84 85 ! Local variables: 85 86 CHARACTER(LEN=256) :: modname, fmt 86 INTEGER :: i, j, l, ji, itau, iday 87 INTEGER :: i, j, l, ji, itau, iday, iq 87 88 REAL :: xpn, xps, time, phystep 88 89 REAL, DIMENSION(iip1,jjp1) :: psol … … 145 146 ! Look for ozone tracer: 146 147 #ifndef INCA 147 DO i =1,nqtot; IF(ANY(["O3","o3"]==tname(i))) EXIT; END DO148 IF(i /=nqtot+1) THEN148 DO iq=1,nqtot; IF(strLower(tracers(iq)%name)=="o3") EXIT; END DO 149 IF(iq/=nqtot+1) THEN 149 150 CALL regr_lat_time_coefoz 150 151 CALL press_coefoz 151 CALL regr_pr_o3(p3d, q3d(:,:,:,i ))152 q3d(:,:,:,i )=q3d(:,:,:,i)*48./ 29.!--- Mole->mass fraction152 CALL regr_pr_o3(p3d, q3d(:,:,:,iq)) 153 q3d(:,:,:,iq)=q3d(:,:,:,iq)*48./ 29. !--- Mole->mass fraction 153 154 END IF 154 155 #endif
Note: See TracChangeset
for help on using the changeset viewer.