Changeset 5390 for LMDZ6/trunk/libf/phylmd/dyn1d
- Timestamp:
- Dec 5, 2024, 5:09:25 PM (7 weeks ago)
- Location:
- LMDZ6/trunk/libf/phylmd/dyn1d
- Files:
-
- 4 edited
- 1 copied
-
1DUTILS.h (modified) (14 diffs)
-
1Dconv.h (copied) (copied from LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h) (8 diffs)
-
mod_1D_cases_read.f90 (modified) (1 diff)
-
old_1DUTILS_read_interp.h (modified) (21 diffs)
-
replay1d.f90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
r5310 r5390 644 644 ! 645 645 RETURN 646 END 646 END SUBROUTINE conf_unicol 647 647 ! 648 648 ! $Id: dyn1deta0.F 1279 2010/07/30 A Lahellec$ … … 793 793 ! 794 794 RETURN 795 END 795 END SUBROUTINE dyn1deta0 796 796 ! 797 797 ! $Id: dyn1dredem.F 1279 2010/07/29 A Lahellec$ … … 945 945 ! 946 946 RETURN 947 END 947 END SUBROUTINE dyn1dredem 948 948 949 SUBROUTINE gr_fi_dyn(nfield,ngrid,im,jm,pfi,pdyn) 949 950 IMPLICIT NONE … … 1042 1043 ! 1043 1044 RETURN 1044 END 1045 END SUBROUTINE gr_fi_dyn 1045 1046 1046 1047 SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi) … … 1079 1080 1080 1081 RETURN 1081 END 1082 END SUBROUTINE gr_dyn_fi 1082 1083 1083 1084 SUBROUTINE disvert0(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig) … … 1231 1232 1232 1233 RETURN 1233 END 1234 END SUBROUTINE disvert0 1234 1235 1235 1236 !!====================================================================== … … 1296 1297 1297 1298 return 1298 end 1299 end subroutine advect_vert 1299 1300 1300 1301 !=============================================================== … … 1374 1375 !fin itlmd 1375 1376 return 1376 end 1377 END SUBROUTINE advect_va 1378 1377 1379 ! SUBROUTINE lstendH(llm,omega,d_t_va,d_q_va,d_u_va,d_v_va, 1378 1380 SUBROUTINE lstendH(llm,nqtot,omega,d_t_va,d_q_va, & … … 1457 1459 1458 1460 return 1459 end 1461 end SUBROUTINE lstendH 1460 1462 1461 1463 !====================================================================== … … 1510 1512 ! 1511 1513 RETURN 1512 END 1514 END Subroutine Nudge_RHT_init 1513 1515 1514 1516 Subroutine Nudge_UV_init (paprs,pplay,u,v,u_targ,v_targ) … … 1543 1545 ! 1544 1546 RETURN 1545 END 1547 END Subroutine Nudge_UV_init 1546 1548 1547 1549 Subroutine Nudge_RHT (dtime,paprs,pplay,t_targ,rh_targ,t,q, & … … 1633 1635 ! 1634 1636 RETURN 1635 END 1637 END Subroutine Nudge_RHT 1636 1638 1637 1639 Subroutine Nudge_UV (dtime,paprs,pplay,u_targ,v_targ,u,v, & … … 1689 1691 ! 1690 1692 RETURN 1691 END 1693 END Subroutine Nudge_UV 1692 1694 1693 1695 !===================================================================== … … 1897 1899 1898 1900 return 1899 end 1901 end SUBROUTINE interp2_case_vertical 1900 1902 !***************************************************************************** 1901 1903 -
LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h
r5348 r5390 455 455 999 continue 456 456 stop 'erreur lecture, file forcing.ctl' 457 end 457 end subroutine get_uvd 458 458 459 459 SUBROUTINE advect_tvl(dtime,zt,zq,vu_f,vv_f,t_f,q_f & … … 490 490 491 491 return 492 end 492 end SUBROUTINE advect_tvl 493 493 494 494 SUBROUTINE copie(klevgcm,playgcm,psolgcm,file_forctl) … … 564 564 write(*,*) ' ' 565 565 566 end 566 end SUBROUTINE copie 567 567 568 SUBROUTINE mesolupbis(file_forctl) 568 569 implicit none … … 638 639 ! 639 640 999 stop 'erreur lecture des niveaux pression des donnees' 640 end 641 end SUBROUTINE mesolupbis 641 642 642 643 SUBROUTINE rdgrads(itape,icount,nl,z,ht,hq,hw,hu,hv,hthtur,hqtur, & … … 708 709 709 710 RETURN 710 END 711 END SUBROUTINE rdgrads 711 712 712 713 SUBROUTINE corresbis(psol) … … 783 784 ! 784 785 return 785 end 786 end SUBROUTINE corresbis 787 786 788 SUBROUTINE GETSCH(STR,DEL,TRM,NTH,SST,NCH) 787 789 !*************************************************************** … … 853 855 ISPACE = ISPACE + IBLANK - INONBL + NSPACE 854 856 IF (ISPACE.LE.LENSPA) GO TO 100 855 999 END 857 999 END SUBROUTINE GETSCH 858 856 859 FUNCTION INDEXC(STR,SSTR) 857 860 ! … … 875 878 INDEXC = 0 876 879 ! 877 999 END 880 999 END FUNCTION INDEXC -
LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read.f90
r5302 r5390 1014 1014 1015 1015 return 1016 END 1016 END SUBROUTINE interp_case_time 1017 1017 1018 1018 !********************************************************************************************** -
LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h
r5368 r5390 61 61 62 62 return 63 end 63 end SUBROUTINE read_togacoare 64 64 65 65 !------------------------------------------------------------------------- … … 96 96 97 97 return 98 end 98 end SUBROUTINE read_sandu 99 99 100 100 !===================================================================== … … 138 138 139 139 return 140 end 140 end SUBROUTINE read_astex 141 141 !===================================================================== 142 142 subroutine read_twpice(fich_twpice,nlevel,ntime & … … 533 533 534 534 return 535 end 535 end subroutine catchaxis 536 536 !===================================================================== 537 537 … … 649 649 650 650 return 651 end 651 end SUBROUTINE interp_sandu_vertical 652 652 !===================================================================== 653 653 SUBROUTINE interp_astex_vertical(play,nlev_astex,plev_prof & … … 771 771 772 772 return 773 end 773 end SUBROUTINE interp_astex_vertical 774 774 775 775 !====================================================================== … … 935 935 936 936 return 937 end 937 end SUBROUTINE read_rico 938 938 939 939 !====================================================================== … … 1011 1011 1012 1012 return 1013 END 1013 END SUBROUTINE interp_sandu_time 1014 1014 !===================================================================== 1015 1015 !------------------------------------------------------------------------- … … 1048 1048 1049 1049 return 1050 end 1050 end SUBROUTINE read_armcu 1051 1051 1052 1052 !===================================================================== … … 1169 1169 1170 1170 return 1171 end 1171 end SUBROUTINE interp_toga_vertical 1172 1172 1173 1173 !===================================================================== … … 1331 1331 1332 1332 return 1333 end 1333 end SUBROUTINE interp_case_vertical 1334 1334 !***************************************************************************** 1335 1335 !===================================================================== … … 1455 1455 1456 1456 return 1457 end 1457 end SUBROUTINE interp_dice_vertical 1458 1458 1459 1459 !====================================================================== … … 1547 1547 1548 1548 return 1549 END 1549 END SUBROUTINE interp_astex_time 1550 1550 1551 1551 !====================================================================== … … 1686 1686 1687 1687 return 1688 END 1688 END SUBROUTINE interp_toga_time 1689 1689 1690 1690 !====================================================================== … … 1802 1802 1803 1803 return 1804 END 1804 END SUBROUTINE interp_dice_time 1805 1805 1806 1806 !====================================================================== … … 1888 1888 tg_prof=tg_gabls4(it_gabls42)-frac*(tg_gabls4(it_gabls42)-tg_gabls4(it_gabls41)) 1889 1889 return 1890 END 1890 END SUBROUTINE interp_gabls4_time 1891 1891 1892 1892 !====================================================================== … … 1967 1967 1968 1968 return 1969 END 1969 END SUBROUTINE interp_armcu_time 1970 1970 1971 1971 !===================================================================== … … 2043 2043 2044 2044 return 2045 end 2045 end subroutine readprofiles 2046 2046 !====================================================================== 2047 2047 subroutine readprofile_sandu(nlev_max,kmax,height,pprof,tprof, & … … 2074 2074 2075 2075 return 2076 end 2076 end subroutine readprofile_sandu 2077 2077 2078 2078 !====================================================================== … … 2106 2106 2107 2107 return 2108 end 2108 end subroutine readprofile_astex 2109 2109 2110 2110 … … 2163 2163 2164 2164 return 2165 end 2165 end subroutine readprofile_armcu 2166 2166 2167 2167 !===================================================================== -
LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90
r5310 r5390 128 128 129 129 RETURN 130 END 130 END SUBROUTINE gr_dyn_fi
Note: See TracChangeset
for help on using the changeset viewer.
