- Timestamp:
- 2015-07-30T18:15:19+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/TOOLS/SIREN/src/domain.f90
r5581 r5653 246 246 ! 247 247 !> @author J.Paul 248 !> - Nov, 2013- Initial Version248 !> @date November, 2013 - Initial Version 249 249 ! 250 250 !> @param[inout] td_dom dom structure … … 294 294 ! 295 295 !> @author J.Paul 296 !> - June, 2013- Initial Version296 !> @date 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 & "you should use grid_get_perio to compute it") 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") 366 367 ELSE 367 368 dom__init_mpp%i_perio0=td_mpp%i_perio … … 424 425 ! 425 426 !> @author J.Paul 426 !> - June, 2013- Initial Version427 !> @date June, 2013 - Initial Version 427 428 !> @date September, 2014 428 429 !> - add boundary index … … 489 490 490 491 IF( td_file%i_perio < 0 .OR. td_file%i_perio > 6 )THEN 491 CALL logger_error("DOM INIT: invalid grid periodicity. "//& 492 & "you should use grid_get_perio to compute it") 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") 493 495 ELSE 494 496 dom__init_file%i_perio0=td_file%i_perio … … 548 550 !> 549 551 !> @author J.Paul 550 !> - November, 2013- Subroutine written552 !> @date November, 2013 - Initial version 551 553 ! 552 554 !> @param[inout] td_dom domain structure … … 653 655 !> 654 656 !> @author J.Paul 655 !> - November, 2013- Subroutine written657 !> @date November, 2013 - Initial version 656 658 !> @date September, 2014 657 659 !> - use zero indice to defined cyclic or global domain … … 721 723 !> 722 724 !> @author J.Paul 723 !> - November, 2013- Subroutine written725 !> @date November, 2013 - Initial verison 724 726 ! 725 727 !> @param[inout] td_dom domain strcuture … … 755 757 !> 756 758 !> @author J.Paul 757 !> - November, 2013- Subroutine written759 !> @date November, 2013 - Initial version 758 760 ! 759 761 !> @param[inout] td_dom domain strcuture … … 774 776 !> 775 777 !> @author J.Paul 776 !> - November, 2013- Subroutine written778 !> @date November, 2013 - Initial version 777 779 ! 778 780 !> @param[inout] td_dom domain strcuture … … 806 808 !> 807 809 !> @author J.Paul 808 !> - November, 2013- Subroutine written810 !> @date November, 2013 - Initial version 809 811 ! 810 812 !> @param[inout] td_dom domain strcuture … … 824 826 !> 825 827 !> @author J.Paul 826 !> - November, 2013- Subroutine written828 !> @date November, 2013 - Initial version 827 829 ! 828 830 !> @param[inout] td_dom domain strcuture … … 862 864 !> 863 865 !> @author J.Paul 864 !> - November, 2013- Subroutine written866 !> @date November, 2013 - Initial version 865 867 ! 866 868 !> @param[inout] td_dom domain strcuture … … 912 914 !> 913 915 !> @author J.Paul 914 !> - November, 2013- Subroutine written916 !> @date November, 2013 - Initial version 915 917 ! 916 918 !> @param[inout] td_dom domain strcuture … … 951 953 !> 952 954 !> @author J.Paul 953 !> - April, 2013- Subroutine written955 !> @date April, 2013 - Initial version 954 956 ! 955 957 !> @param[inout] td_dom domain strcuture … … 979 981 !> 980 982 !> @author J.Paul 981 !> - November, 2013- Subroutine written983 !> @date November, 2013 - Initial version 982 984 ! 983 985 !> @param[inout] td_dom domain strcuture … … 1041 1043 !> 1042 1044 !> @author J.Paul 1043 !> - November, 2013- Subroutine written1045 !> @date November, 2013 - Initial version 1044 1046 ! 1045 1047 !> @param[inout] td_dom domain strcuture … … 1082 1084 !> 1083 1085 !> @author J.Paul 1084 !> - November, 2013- Subroutine written1086 !> @date November, 2013 - Initial version 1085 1087 ! 1086 1088 !> @param[inout] td_dom domain strcuture … … 1180 1182 !> 1181 1183 !> @author J.Paul 1182 !> - November, 2013- Subroutine written1184 !> @date November, 2013 - Initial version 1183 1185 ! 1184 1186 !> @param[inout] td_dom domain strcuture … … 1292 1294 !> 1293 1295 !> @author J.Paul 1294 !> @date November, 2013 1296 !> @date November, 2013 - Initial version 1295 1297 !> @date September, 2014 1296 1298 !> - take into account number of ghost cell … … 1433 1435 ! 1434 1436 !> @author J.Paul 1435 !> @date November, 2013 1437 !> @date November, 2013 - Initial version 1436 1438 ! 1437 1439 !> @param[inout] td_dom domain strcuture … … 1476 1478 !> 1477 1479 !> @author J.Paul 1478 !> @date November, 2013 1480 !> @date November, 2013 - Initial version 1479 1481 !> @date September, 2014 1480 1482 !> - take into account boundary for one point size domain … … 1715 1717 ! 1716 1718 !> @author J.Paul 1717 !> @date November, 2013 1719 !> @date November, 2013 - Initial version 1718 1720 ! 1719 1721 !> @param[inout] td_dom domain strcuture
Note: See TracChangeset
for help on using the changeset viewer.