New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5956 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/TOOLS/SIREN/src/domain.f90 – NEMO

Ignore:
Timestamp:
2015-11-30T20:55:41+01:00 (8 years ago)
Author:
mathiot
Message:

ISF : merged trunk (5936) into branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/TOOLS/SIREN/src/domain.f90

    r5037 r5956  
    246246   ! 
    247247   !> @author J.Paul 
    248    !> - Nov, 2013- Initial Version 
     248   !> @date November, 2013 - Initial Version 
    249249   ! 
    250250   !> @param[inout] td_dom dom structure 
     
    294294   ! 
    295295   !> @author J.Paul 
    296    !> - June, 2013- Initial Version 
     296   !> @date June, 2013 - Initial Version 
    297297   !> @date September, 2014 
    298298   !> - add boundary index 
     
    362362 
    363363         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") 
    366367         ELSE 
    367368            dom__init_mpp%i_perio0=td_mpp%i_perio 
     
    424425   ! 
    425426   !> @author J.Paul 
    426    !> - June, 2013- Initial Version 
     427   !> @date June, 2013 - Initial Version 
    427428   !> @date September, 2014 
    428429   !> - add boundary index 
     
    489490 
    490491         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") 
    493495         ELSE 
    494496            dom__init_file%i_perio0=td_file%i_perio 
     
    548550   !> 
    549551   !> @author J.Paul 
    550    !> - November, 2013- Subroutine written 
     552   !> @date November, 2013 - Initial version 
    551553   ! 
    552554   !> @param[inout] td_dom domain structure 
     
    653655   !> 
    654656   !> @author J.Paul 
    655    !> - November, 2013- Subroutine written 
     657   !> @date November, 2013 - Initial version 
    656658   !> @date September, 2014 
    657659   !> - use zero indice to defined cyclic or global domain 
     
    721723   !> 
    722724   !> @author J.Paul 
    723    !> - November, 2013- Subroutine written 
     725   !> @date November, 2013 - Initial verison 
    724726   ! 
    725727   !> @param[inout] td_dom domain strcuture 
     
    755757   !> 
    756758   !> @author J.Paul 
    757    !> - November, 2013- Subroutine written 
     759   !> @date November, 2013 - Initial version 
    758760   ! 
    759761   !> @param[inout] td_dom domain strcuture 
     
    774776   !> 
    775777   !> @author J.Paul 
    776    !> - November, 2013- Subroutine written 
     778   !> @date November, 2013 - Initial version 
    777779   ! 
    778780   !> @param[inout] td_dom domain strcuture 
     
    806808   !> 
    807809   !> @author J.Paul 
    808    !> - November, 2013- Subroutine written 
     810   !> @date November, 2013 - Initial version 
    809811   ! 
    810812   !> @param[inout] td_dom domain strcuture 
     
    824826   !> 
    825827   !> @author J.Paul 
    826    !> - November, 2013- Subroutine written 
     828   !> @date November, 2013 - Initial version 
    827829   ! 
    828830   !> @param[inout] td_dom domain strcuture 
     
    862864   !> 
    863865   !> @author J.Paul 
    864    !> - November, 2013- Subroutine written 
     866   !> @date November, 2013 - Initial version 
    865867   ! 
    866868   !> @param[inout] td_dom domain strcuture 
     
    912914   !> 
    913915   !> @author J.Paul 
    914    !> - November, 2013- Subroutine written 
     916   !> @date November, 2013 - Initial version 
    915917   ! 
    916918   !> @param[inout] td_dom domain strcuture 
     
    951953   !> 
    952954   !> @author J.Paul 
    953    !> - April, 2013- Subroutine written 
     955   !> @date April, 2013 - Initial version 
    954956   ! 
    955957   !> @param[inout] td_dom domain strcuture 
     
    979981   !> 
    980982   !> @author J.Paul 
    981    !> - November, 2013- Subroutine written 
     983   !> @date November, 2013 - Initial version 
    982984   ! 
    983985   !> @param[inout] td_dom domain strcuture 
     
    10411043   !> 
    10421044   !> @author J.Paul 
    1043    !> - November, 2013- Subroutine written 
     1045   !> @date November, 2013 - Initial version 
    10441046   ! 
    10451047   !> @param[inout] td_dom domain strcuture 
     
    10821084   !> 
    10831085   !> @author J.Paul 
    1084    !> - November, 2013- Subroutine written 
     1086   !> @date November, 2013 - Initial version 
    10851087   ! 
    10861088   !> @param[inout] td_dom domain strcuture 
     
    11801182   !> 
    11811183   !> @author J.Paul 
    1182    !> - November, 2013- Subroutine written 
     1184   !> @date November, 2013 - Initial version 
    11831185   ! 
    11841186   !> @param[inout] td_dom domain strcuture 
     
    12921294   !> 
    12931295   !> @author J.Paul 
    1294    !> @date November, 2013 
     1296   !> @date November, 2013 - Initial version 
    12951297   !> @date September, 2014 
    12961298   !> - take into account number of ghost cell 
     
    14331435   ! 
    14341436   !> @author J.Paul 
    1435    !> @date November, 2013 
     1437   !> @date November, 2013 - Initial version 
    14361438   ! 
    14371439   !> @param[inout] td_dom domain strcuture 
     
    14761478   !>  
    14771479   !> @author J.Paul 
    1478    !> @date November, 2013 
     1480   !> @date November, 2013 - Initial version 
    14791481   !> @date September, 2014 
    14801482   !> - take into account boundary for one point size domain 
     
    17151717   ! 
    17161718   !> @author J.Paul 
    1717    !> @date November, 2013 
     1719   !> @date November, 2013 - Initial version 
    17181720   ! 
    17191721   !> @param[inout] td_dom domain strcuture 
Note: See TracChangeset for help on using the changeset viewer.