Changeset 4314
- Timestamp:
- 2013-11-26T11:36:22+01:00 (11 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
r4247 r4314 37 37 USE par_kind 38 38 USE crslbclnk 39 USE lib_mpp 39 40 40 41 -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4232 r4314 3511 3511 END FUNCTION lib_mpp_alloc 3512 3512 3513 FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg, kstop, localComm ) RESULT (function_value)3513 FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg, kumond , kstop, localComm ) RESULT (function_value) 3514 3514 INTEGER, OPTIONAL , INTENT(in ) :: localComm 3515 3515 CHARACTER(len=*),DIMENSION(:) :: ldtxt 3516 INTEGER :: kumnam_ref, knumnam_cfg , k stop3516 INTEGER :: kumnam_ref, knumnam_cfg , kumond , kstop 3517 3517 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3518 3518 IF( .FALSE. ) ldtxt(:) = 'never done'
Note: See TracChangeset
for help on using the changeset viewer.