- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/TOOLS/SIREN/src/domain.f90
r10248 r10251 246 246 ! 247 247 !> @author J.Paul 248 !> @date November, 2013- Initial Version248 !> - Nov, 2013- Initial Version 249 249 ! 250 250 !> @param[inout] td_dom dom structure … … 294 294 ! 295 295 !> @author J.Paul 296 !> @date June, 2013- Initial Version296 !> - June, 2013- Initial Version 297 297 !> @date September, 2014 298 298 !> - add boundary index … … 362 362 363 363 IF( td_mpp%i_perio < 0 .OR. td_mpp%i_perio > 6 )THEN 364 CALL logger_error("DOM INIT: invalid grid periodicity ("//& 365 & TRIM(fct_str(td_mpp%i_perio))//& 366 & ") you should use grid_get_perio to compute it") 364 CALL logger_error("DOM INIT: invalid grid periodicity. "//& 365 & "you should use grid_get_perio to compute it") 367 366 ELSE 368 367 dom__init_mpp%i_perio0=td_mpp%i_perio … … 425 424 ! 426 425 !> @author J.Paul 427 !> @date June, 2013- Initial Version426 !> - June, 2013- Initial Version 428 427 !> @date September, 2014 429 428 !> - add boundary index … … 490 489 491 490 IF( td_file%i_perio < 0 .OR. td_file%i_perio > 6 )THEN 492 CALL logger_error("DOM INIT: invalid grid periodicity ("//& 493 & TRIM(fct_str(td_file%i_perio))//& 494 & ") you should use grid_get_perio to compute it") 491 CALL logger_error("DOM INIT: invalid grid periodicity. "//& 492 & "you should use grid_get_perio to compute it") 495 493 ELSE 496 494 dom__init_file%i_perio0=td_file%i_perio … … 550 548 !> 551 549 !> @author J.Paul 552 !> @date November, 2013 - Initial version550 !> - November, 2013- Subroutine written 553 551 ! 554 552 !> @param[inout] td_dom domain structure … … 655 653 !> 656 654 !> @author J.Paul 657 !> @date November, 2013 - Initial version655 !> - November, 2013- Subroutine written 658 656 !> @date September, 2014 659 657 !> - use zero indice to defined cyclic or global domain … … 723 721 !> 724 722 !> @author J.Paul 725 !> @date November, 2013 - Initial verison723 !> - November, 2013- Subroutine written 726 724 ! 727 725 !> @param[inout] td_dom domain strcuture … … 757 755 !> 758 756 !> @author J.Paul 759 !> @date November, 2013 - Initial version757 !> - November, 2013- Subroutine written 760 758 ! 761 759 !> @param[inout] td_dom domain strcuture … … 776 774 !> 777 775 !> @author J.Paul 778 !> @date November, 2013 - Initial version776 !> - November, 2013- Subroutine written 779 777 ! 780 778 !> @param[inout] td_dom domain strcuture … … 808 806 !> 809 807 !> @author J.Paul 810 !> @date November, 2013 - Initial version808 !> - November, 2013- Subroutine written 811 809 ! 812 810 !> @param[inout] td_dom domain strcuture … … 826 824 !> 827 825 !> @author J.Paul 828 !> @date November, 2013 - Initial version826 !> - November, 2013- Subroutine written 829 827 ! 830 828 !> @param[inout] td_dom domain strcuture … … 864 862 !> 865 863 !> @author J.Paul 866 !> @date November, 2013 - Initial version864 !> - November, 2013- Subroutine written 867 865 ! 868 866 !> @param[inout] td_dom domain strcuture … … 914 912 !> 915 913 !> @author J.Paul 916 !> @date November, 2013 - Initial version914 !> - November, 2013- Subroutine written 917 915 ! 918 916 !> @param[inout] td_dom domain strcuture … … 953 951 !> 954 952 !> @author J.Paul 955 !> @date April, 2013 - Initial version953 !> - April, 2013- Subroutine written 956 954 ! 957 955 !> @param[inout] td_dom domain strcuture … … 981 979 !> 982 980 !> @author J.Paul 983 !> @date November, 2013 - Initial version981 !> - November, 2013- Subroutine written 984 982 ! 985 983 !> @param[inout] td_dom domain strcuture … … 1043 1041 !> 1044 1042 !> @author J.Paul 1045 !> @date November, 2013 - Initial version1043 !> - November, 2013- Subroutine written 1046 1044 ! 1047 1045 !> @param[inout] td_dom domain strcuture … … 1084 1082 !> 1085 1083 !> @author J.Paul 1086 !> @date November, 2013 - Initial version1084 !> - November, 2013- Subroutine written 1087 1085 ! 1088 1086 !> @param[inout] td_dom domain strcuture … … 1182 1180 !> 1183 1181 !> @author J.Paul 1184 !> @date November, 2013 - Initial version1182 !> - November, 2013- Subroutine written 1185 1183 ! 1186 1184 !> @param[inout] td_dom domain strcuture … … 1294 1292 !> 1295 1293 !> @author J.Paul 1296 !> @date November, 2013 - Initial version1294 !> @date November, 2013 1297 1295 !> @date September, 2014 1298 1296 !> - take into account number of ghost cell … … 1435 1433 ! 1436 1434 !> @author J.Paul 1437 !> @date November, 2013 - Initial version1435 !> @date November, 2013 1438 1436 ! 1439 1437 !> @param[inout] td_dom domain strcuture … … 1478 1476 !> 1479 1477 !> @author J.Paul 1480 !> @date November, 2013 - Initial version1478 !> @date November, 2013 1481 1479 !> @date September, 2014 1482 1480 !> - take into account boundary for one point size domain … … 1717 1715 ! 1718 1716 !> @author J.Paul 1719 !> @date November, 2013 - Initial version1717 !> @date November, 2013 1720 1718 ! 1721 1719 !> @param[inout] td_dom domain strcuture
Note: See TracChangeset
for help on using the changeset viewer.