Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d
- Timestamp:
- Jul 23, 2024, 7:14:34 PM (6 months ago)
- Location:
- LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90
r5104 r5105 978 978 ENDDO 979 979 980 RETURN 980 981 981 END SUBROUTINE dyn1dredem 982 982 … … 1017 1017 ENDDO 1018 1018 1019 RETURN 1019 1020 1020 END SUBROUTINE gr_fi_dyn 1021 1021 … … 1470 1470 print *, 'rh_targ', rh_targ 1471 1471 1472 RETURN 1472 1473 1473 END SUBROUTINE nudge_rht_init 1474 1474 -
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_amma_read.F90
r5103 r5105 341 341 ! write(*,*)'lecture pp ok',pp 342 342 343 return 343 344 344 END SUBROUTINE read_amma 345 345 !====================================================================== -
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read.F90
r5103 r5105 799 799 800 800 801 return 801 802 802 END SUBROUTINE read_cas 803 803 !====================================================================== -
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read2.F90
r5103 r5105 639 639 enddo 640 640 641 return 641 642 642 END SUBROUTINE read_cas2 643 643 !====================================================================== … … 807 807 808 808 809 return 809 810 810 END SUBROUTINE read2_cas 811 811 … … 1016 1016 !----------------------------------------------------------------------- 1017 1017 1018 return 1018 1019 1019 END SUBROUTINE old_read_SCM 1020 1020 !====================================================================== … … 1221 1221 enddo 1222 1222 1223 return 1223 1224 1224 END SUBROUTINE interp_case_time2 1225 1225 … … 1458 1458 enddo 1459 1459 1460 return 1460 1461 1461 END SUBROUTINE interp2_case_time 1462 1462 -
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90
r5103 r5105 619 619 !----------------------------------------------------------------------- 620 620 621 return 621 622 622 END SUBROUTINE read_SCM 623 623 !====================================================================== … … 904 904 enddo 905 905 906 return 906 907 907 END SUBROUTINE interp_case_time_std 908 908 … … 1207 1207 1208 1208 1209 return 1209 1210 1210 END SUBROUTINE interp2_case_vertical_std 1211 1211 !***************************************************************************** -
LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h
r5103 r5105 487 487 ! write(*,*)'lecture T_srf ok', T_srf 488 488 489 return 489 490 490 end subroutine read_twpice 491 491 !===================================================================== … … 2370 2370 ! write(*,*)'lecture thl_rad ok',thl_rad 2371 2371 2372 return 2372 2373 2373 end subroutine read_fire 2374 2374 !===================================================================== … … 2706 2706 ! write(*,*)'lecture omega ok',omega 2707 2707 2708 return 2708 2709 2709 end subroutine read_dice 2710 2710 !===================================================================== … … 2949 2949 hadvq(k,:)=hadvq_i(nlevel+1-k,:) 2950 2950 enddo 2951 return 2951 2952 2952 end subroutine read_gabls4 2953 2953 !===================================================================== … … 3055 3055 close(16) 3056 3056 3057 return 3057 3058 3058 end subroutine read_circ 3059 3059 !===================================================================== … … 3092 3092 close(12) 3093 3093 3094 return 3094 3095 3095 end subroutine read_rtmip 3096 3096 !=====================================================================
Note: See TracChangeset
for help on using the changeset viewer.